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TROUBLESHOOTER @ Updates from all over 


QL SCENE @ Miracle hands over the Trump Card 
QL SCENE @ Cowo expand their list 


OPEN CHANNEL @ Thoughts on the QL’s future 
SOFTWARE FILE @ Polytext 

JUST FOR STARTERS @® Basic database part 3 
ONLY FOLLOWING ORDERS @® Regular payments 
with Abacus 

NEW USER GUIDE @ IDEC$ to INPUT 

QL SCENE ®@ Digital Precision updates 

ARCHIVE ANSWERS @ Direct t 

SOFTWARE FILE @ Rockfall 

DIY TOOLKIT @ Windows for the QL 

SOFTWARE FILE @ Pudge 

SOFTWARE FILE @ QuickDisk and DiskTool 

QL INTERNATIONAL @ A Munster event for users 
CLUB ACCESS 

SYSTEMATIC MACHINE CODE PROGRAMMING ® 
Part 8 

READERS’ OFFER @ From EEC Ltd. 
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We have an 
updated version 
x of Cowo Electronics’ QL 
_and Thor front end QTop; several 
new w games reviews; a publisher working © 
‘on suggestions for would-be software 
authors when sending their wares for 
assessment; more meetings reports, and — 
an interesting new Mouse from EEC Ltd. 
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ou will probably by now have 

read the front page of QL World, 

and realised that the magazine 

is under new management. The 
company uses Apple Macintoshes for their 
magazine layout work, and can load files 
from standard PC programs into the Macs. 
Had the QL been developed further by 
Sinclair, it might by now have been quite 
like a Mac, with a more-powerful 68000- 
series cpu, hard disk drives, better graph- 
ics display, a WIMP user interface, and a 
much more comprehensive operating sys- 
tem. Thanks to various suppliers, steps 
have been taken to update the QL in some 
areas; we have a faster processor, in the 
form of the Gold Card, and a WIMP inter- 
face, QPac. Improvements to the Qdos 
operating system have been piecemeal, 
and leave a lot to be desired by the aver- 
age user. The graphics haven't really been 
tackled yet. The story is far from ended, 
though. Thereis no shortage of QLmaterial, 
circulation of QL World and membership 
| of Quanta both appear to have stabilised 
and could be increased somewhat, so 
there is good reason to think our computer 
will continue to be well-supported as it 
comes up to its tenth year. 


New products 


Jochen Merz was demonstrating the 
QL emulator running on an Atari said 
to have a 33 MHz 68020 cpu at the 
Bristol Quanta meeting. Not surpris- 
ingly, it was reported to be quite fast! 
Miracle Systems are working on both 
higher- and lower-specification ver- 
sions of the Gold Card. Now we know 
just how usable QL software is with 
the 16 MHz 68000 Gold Card, the 
thought of what will be possible with 
the 68020 or 68040 cpu is truly ex- 
citing. Digital Precision has a speed 
demonstration which should register 
with most people, and it makes use of 
the Perfection wordprocessor running 
on a standard Gold Card system. A 
single file containing about 40% of 
the bible (roughly 1.6 MB!) is loaded 
into Perfection, and Copy and Spell- 
check operations run; the times taken 
are in the low seconds, not the minutes 
(or even hours) that some people 
might expect. Beta-test versions of 
Perfection are doing the rounds again, 
and they contain some significant 
improvements, so be prepared for a 
new release shortly. 


Bryan Davies has 
been trying some of 
the new upgrades 
from several QL sup- 
pliers this spring. 


Faster emulation 


Not new, but due out in updated form 
any time now, is Digital Precision’s Con- 
queror PC emulator. Amongst the new 
features are support for expansion 
memory, which can be well-utilised by the 
DR-DOS 6.0 (or 6.1) operating system 
that is supplied with the Special Edition 
version. The PC’s conventional memory 
limit of 640 KB was raised to 667 KB by the 
original version of Conqueror, and has 
now been jacked-up further to a reported 
736 KB. Having been struggling to get an 
extra few bytes’ working space on my own 
PC recently, an extra couple of hundred 
kilobytes seems a dream, but Conqueror 
provides it. Naturally, use of the Gold Card 
increases speed of operation considerably, 
but it would be losing much of the GC’s 
advantage if its extra memory could not be 
used also, and Conqueror can now do just 
that, making a fully-usable PC out of the 
QL. 

Another significant improvement is that 
the program is tuned for operation with the 
Gold Card and extra-high density disk 
drives. DR-DOS 6.0 is up-to-the-minute 
PC software, and merits some description 
here. The basic 640 KB which is the nomi- 
nal PC and DOS ‘ration’ has been ex- 
ceeded in several ways for some years 
now, but many PCs are still restricted to 
this amount; DOS 6.0 enables several 
chunks of the operational software to be 
loaded into areas of memory away from 
the basic 640 KB. The extra memory 
provided by the Gold Card can also be 
used as extended memory, and this type 
of memory is vital to the operation of that 
masterpiece of seductive programming, 
Windows. It also enables ramdisks to be 
created. One major feature of DR-DOS 
6.0isits disk cache routine, which can also 
make use of the extra memory, to give a 
considerable speed-up of disk read/write 


L 


operations. The SuperStor feature uses 
on-the-fly file-compression to increase the 
available hard disk space by a factor of 
two. Ifyou haven't gota hard disk, buthave 
an ED drive, you can create a DOS area of 
about 6.4 MB on it. That is near hard disk 
capacity. 


Try arom 


The version 2.28 rom in the Gold Card is 
reported to sort out various disk-associated 
problems. As the reports are all second- 
hand, please don't take them as being a 
guaranteed cure for any disk problems 
you may have, but it is worth contacting 
Miracle Systems, if you have trouble you 
think is related to the Gold Card, to ask 
their advice on whether or not the 2.28 rom 
is needed in your GC. The reports suggest 
this rom deals with file/directory errors on 
ED disks, incompatibility with one-third- 
height Mitsubishi 3.5in drives, failure to 
boot of QL Invoicer (one drive being ig- 
nored), and unspecified trouble with As- 
sembler Workbench. As disk-corruption 
with some ED drives was definitely es- 
tablished, andhasn’t occurred on the drives 
in question since the V2.28 rom was fitted, 
there may be reason to hope corruption 
reported on DD and HD disks could be 
cured by this rom also. 

Miracle state that “(the V2.28 rom) fixes 
the directory corruption problem and also 
allows the old one-third-height Mitsubishis 
to be used”. The new rom has been tried in 
my JS and JM systems; unfortunately, it 
has made the Mitsubishi drives unavailable, 
so can’t be counted a success, for me. 
Miracle have been asked to look into the 
problem some more. With the recent drop 
in price of the GC, Miracle have dropped 
the Trump Card from their product line, but 
another, smaller dealer will be selling and 
supporting it, with Miracle’s assistance. 


Text87 Plus4 


| waited in vain fora long time for a copy 
of text87 Plus-4. It wasn't hard to guess 
that a main reason for the delay was the 
late discovery of bugs, but it is not exactly 
unusual for programs to be shipped with 
bugs in them, and beta testers certainly 
don't expect their copies to be free of 
problems. There is an old adage that you 
are only successful if you get noticed, and 
being caught ‘with your trousers down’ is 
not necessarily going to hinder your ca- 
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reer — to the contrary, it may well improve 
your prospects. Looking atthe micro scene, 
it would not be hard to name more than a 
dozen major programs in world markets 
that were released when they were scarcely 
out of the factory test stage, yet were very 
successful in sales terms. (Very true, Bryan, 
and look at all the woe and sorrow that has 
caused the users.) 

What was all that about? Mainly that | 
have been unable to say anything much 
about text87 - a program | have made 
much favourable comment on in the past 
- other than that | didn’t have the latest 
version. Acopy of Plus-4 2.0 finally got to 
me in mid-April, and another arrived early 
in May, together with a revised driver for 
the Epson GQ-5000 laser printer. Initial 
experience with it shows it to be much- 
improved over the previous generations 
of text87, with considerable expansion of 
the facilities. There are now windows for 
| different documents, or different views of 
the same document, a print preview, sim- 
plified setting-up of typestyles and at- 
tachments, and various other functions. 

The menu structure may still be rather 
daunting for users who have experi- 
enced only Quill, but commands are 
straightforward to access, with full use 
being made of the now-standard method 
of keying the first letter of the command 
required (after F3 has been keyed). In- 
evitably, there are some cases where 
another letter has to be used, but this 


Another Special Edition 


Not to be outdone, Digital Precision are 
now sending-out beta-test versions of 
Perfection Special Edition. This version 
addresses comments made by various 
users. One such is the ability to move from 
the first character of the current line to the 
last one of the previous line by pressing 
the left-cursor key once, rather than mov- 
ing the cursor up one line and then using 
additional keying to move to the end of the 
line. A small thing, maybe, but one which 
can transform the program for users (like 
me) who frequently perform this opera- 
tion. More important for other users is the 
increased number of Strips, which will 
permit more printer functions to be called 
from within documents (rather than having 
to be ‘hard-wired’ in the printer-driver). 
There are also far more Translate 
entries for printer-drivers - enough for 
all but the most way-out requirements. 
Re-formatting has caused some ag- 
gravation, being a (comparatively) 
slow process in the past. It has been 


More on disks 


Those who buy lots of HD 1.44 MB disks 
should be interested to know that the sup- 
plier Mediaware (see INFORMATION box) 
appears to have dropped some of the 
pretence associated with selling unbranded 
disks, and may be supplying branded ones 
even when unbranded are ordered. It may 
have been a temporary measure, when 
filling my order, however, so please don’t 
take this to mean it is policy on the part of 
this supplier. Specifically, | ordered 50 
unbranded (‘bulk’) HD disks, at a price of 
68p plus VAT each; what | got were la- 
belled ‘Precision’ brand, made by Dysan, 
one of the main disk manufacturers. Post 
and packing raised the total price by 1.50 
plus VAT, but it covered other disks and 
two disk boxes, so that the effective price 
per HD disk was about 80p including VAT. 
While | generally recommend buying disks 
without any brand labelling on them, | don't 
object to branded disks for the same price! 


News 


QITAL Y CLUB 


CLUB ITALIANO PER UTENTI DI SINCLAIR QL 


Per informazioni: 


from 
Italy 


The Italian | 
QL user 
group, 


Roberto Orlandi 

Via Brescia 26 

25039 Travagliato (BS) 
Tel.(030)6863311 0 


Eros Forenzi 

Via Valeriana 44 
23010 Berbenno(S0) 
Tel.(0342)492323 


Qlitaly, has 
sent disk 
number 20, 
which con- 


isn’t a real problem. If the user doesn’t 
investigate the functions which take 
text87 far beyond Quill in capability, 


there should be no difficulties with the 

keyings, as they are Quill-like. The cur- 

rent version appears stable, suggesting 

that the bugs in early versions which 

caused crashes or lock-ups have been 

fixed. A major feature of text87 has 

always been the ‘real’ screen presenta- 

tion of text, and the ability to print from 

software founts supplied by fountext88. 

To users who value what comes out 

on paper, text87 offers an unbeatable 

range of founts. If you have a Hewlett- 

Packard DeskJet with added founts, you 
can use the typeset90-DeskJet drivers 
to provide print with founts every bit as 
professional as achieved from current 
PC programs. The samples provided in 
the information on new drivers look just 
the same as ones from a recently-re- 
leased PC program; using the same 
printer, you wouldn't be able to tell which 
computer and program were used. 
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tai .| L-2$000 quota associativa 
Quote iscrizione 1992:| 1">so09 quota integrativa per 
Cosa offre il Club: ricevere QITALY Magazine 


1) 4numeri annui di QITALY Magazine 

2) 2numeri di MONDO QL. rivista su carta 

3) Consulenze per problemi hardware e software, 
acquistidigruppoa prezzi ridotti, programmi PD 
da tutto il mondo, manuali in italiano, programmi 

e molto altro ancora! 


originali 


tains the club 
magazine for 
September- 
October 
1991. As 
usual, this 
video maga- 
zine is well- 
presented. 
The screen 


speeded-up considerably and, in the 
process, Search and Replace opera- 
tions have received a boost, too. 

On the subject of printing, DP has 
sent in a sample of print from Pro- 
fessional Publisher on a HP LaserJet 
Il, and the quality is as you would 
expect from that printer - consider- 
ably better than from your favourite 9- 
pin DMP. 


shot shown 

gives details 
of membership for 1992. Note that the 
magazine makes use of other founts and 
sizes besides the standard QL ones. There 
are some good colour screen shots taken 
from new or upgraded programs, details of 
QL meetings, conversations, correspond- 
ence, etc, and articles on subjects of cur- 
rent interest, such as the 3.2 MB ED disk 
drives from Miracle. Most of the material 


TROUBLESHOOTER 


is, naturally, in Italian, but translations are 
provided for usage instructions, and a fair 
guess can be made at what is being said 
elsewhere if you know the subject matter of 
the text (for example, a letter of mine to 
Eros Forenzi!) 


Still going out 


Despite the fact that the QL pro- 
duction line came to a standstill some 
years ago, new QLs continue to be 
sold in significant quantity. One way 
and another, complete boxed QLs have 
been seeing the light of day and look 
set to carry on doing so for another 
year or so. EEC Ltd. confirm that their 
sales of new QLs run into four figures, 
and that they still have a reasonable 
stock of them. This company has be- 
come the main supplier of complete 
systems, and we receive almost no 
complaints about it (the only complaint 
received by me arose from what ap- 
peared to be a genuine mail problem, 
and it was sorted out). In the event of 
the supply drying up, EEC may have 
to turn to selling Uncle Clive’s new 
lightweight bicycles to maintain their 
link with Sinclair! 


Readers’ letters 


Brian Kemmett reports receiving a 
copy of Professional Publisher from 
TK Computerware without the in- 
struction booklet. TK say they have 
sent two copies of the booklet since, 
and re-sent one of them after it had 
been returned by the Post Office as 
‘not collected’. As the booklets appear 
to have been sent Recorded Delivery, 
and the program disk arrived safely, 
the Post Office has been contacted by 
both parties, but the reported re- 
sponses are not in agreement. Mean- 
while, Kemmett cannot use ProPub 
and has contacted the Trading Stand- 
ards Office; he has also threatened 
legal action. 

A letter concerning complaints by read- 
ers DR Scott, C McKay and AP 
Campbell, sent in mid-March to TK, ap- 
pears to have gone astray and no reply 
has been received to it or to a verbal 
request for comment on their complaints. 
However, Scott has since written to say 
he has received the QL Scanner that was 
the subject of his complaint. Keith 
Johnston listed calls and letters that he 
has sent concerning a Z88 Centronics 
interface, ordered on 10th December 1991 
from TK and not received as of 3rd April. 
As with other complainants, his experi- 
ence is of not getting replies to his ‘phone 
calls and of being told that the goods have 
been lost in the post. He contacted the 
Royal Mail Customer Care Unit, and the 
‘Raw Deal’ help section of the Sunday 


Post newspaper, but both stated that they 
had been unable to get a reply from TK. 
The VISA credit card company pointed 
out that refunds are not given unless the 
value of the goods purchased totals more 
than 100. 

Both Digital Precision and Soft- 
ware87 say they have cleared the back- 
logs of orders which occurred at the start 
of the year, and the lack of further letters 
of complaint appears to confirm that all is 
now back in order. 

B.D. Custerson sent a 3.5in 720 KB 
floppy disk, with the message ‘Will not 
format. For discard use’ on it. This was in 
response to my comments on problems 
with floppy disks and drives. Sure enough, 
the disk showed no sign of a format, in 
either QL or PC. Attempting to format it in 
a QL ED drive produced the message 
‘format failed’, but that was not a conclu- 
sive indication that the disk was 
unformattable. Next step was to try a 720 
KB DR-DOS format, and that was suc- 
cessful, with no errors recorded. The same 
result was obtained from a 1.44 MB MS- 
DOS format. Obviously, a check with a 
QL DD drive was needed, so another QL 
was switched on and attempts at a format 
made in both a DD and an ED drive; two 
failures were recorded in the DD, but a 
successful format, with no errors, was 
obtained first time, in the same ED drive 
that had previously recorded a failure. In 
case the presence of a four-drive adapter, 
and the ED drives, was influencing re- 
sults, the dual DD drives were plugged- 
into the second QL on their own; result, a 
no-error DD format first try. 

Back to the first QL, with only the DD 
drives connected. This time the result 
was quite unexpected - an error-free 360 
KB format! What was different? The first 
QL system had a JS rom and Mk.2 Gold 
Card, whereas the second one had a JM 
and a Mk.1 Trump Card. A four-drive 
adapter was being used with both QLs, to 
allow dual ED and dual DD drives to be 
used together. Finally, the rom in the GC 
was changed from the 2.28 back to the 
2.25 version, and the disk was then for- 
matted successfully, to 720 KB, in both 
DD and ED drives. 

My experience in the past has always 
been that the QL will almost invariably 
format without errors disks which give 
errors on the PC. This instance appeared 
to be a reversal of the usual situation, but 
that was very likely a function of the GC 
rom; Mr Custerson didn't give any details 
of his system, but the disk is on its way 
back to him, to see how it behaves now it 
is formatted, and accompanied by a re- 
quest for details of his system configura- 
tion. Another reader with disk trouble is J. 
Paul Bissonnette, who lives in Otterfing, 
Germany. His bad disks were branded 
Sony and had been in use for four or five 
years. He is quite convinced that the 
problem lies in the disk media, not in any 
external influences such as nearby 


magnetic fields, misaligned drive heads 
etc. Regardless of the type of computer 
used when formatting these disks, bad 
sectors appeared after about a week, 
even if the disks were not used. It would 
have been interesting to look at the 
disks but, not surprisingly, they were 
consigned to the rubbish bin. 


Life of Leisure 


P.H. Tanner has been a constant cor- 
respondent for some time, despite be- 
ing told that my knowledge of program- 
ming was quite insufficient to answer 
some of his queries. His latest letter 
makes a non-technical point which 
should ring a bell with many QL users. 
How many users have discovered that 
retirement from work doesn't seem to 
produce any ‘free time’? Do you wonder 
now how you ever found time to go to 
work at all? Certainly, computing has to 
be one of the best gap-fillers around; my 
own experience has been that almost 
everything else has gone by the board, 
to make way for the increasing demands 
of the keyboards. Despite having a di- 
verse background in computing, Mr 
Tanner resolutely steers clear of some 
of the devices others regard as essen- 
tial; for example, he has no disk drives. 
He still uses Quill for his wordprocessing. 
However, he has two QLs more-or-less 
permanently linked together and pass- 
ing information between them through- 
out the day. In the PC world, the talk is 
increasingly of networked computers, 
on-line to limitless sources of informa- 
tion around the world and constantly 
passing ‘the word’ backwards and for- 
wards. Much of what is said can best be 
described, politely, as rhubarb, but there 
is undoubtedly some good use for net- 
working and it won't be long before com- 
puters are supplied complete with all the 
necessary devices for linking into net- 
works - modems, fax cards, CD rom 
drives etc. 


INFORMATION 


Disks and boxes: 
Mediaware Ltd. 

Unit 9 

Huntsbank Industrial Estate 
Crewe Road 

Wistaston 

Crewe 

Cheshire CW2 6QT. 

Tel. 0270 666616 

Fax 0270 665556 


New QLs: 

EEC Ltd. 

18-21 Misbourne House 
Chiltern Hill 

Chalfont St. Peter 
Bucks SL9 QUE. 

Tel. 0753 888866 

Fax 0753 887149 
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Miracle hands Trump Card over to Qubhesott 


Miracle Systems have licensed 
production and support of their 
popular and long-standing 
memory expansion units, the 
Expanderam and the Trump 
Card. to Ron Dunnett of 
Qubbesoft. 

Said Stewart Honeyball of 
Miracle Systems: “The time we 
were liking on administration and 
so on was taking allenuon away 
from designing new stuff, and we 
decided that it was not really 
sensible for us to carry on doing It. 
Ron is in a better position to do tt, 
and we thought that it was far 
better lo hand it over to somebody 
else than to ditch it.” Support both 


for existing Trumpeard and 
Expanderam users will be through 
Ronin the first instance. although, 
Stewart says, “We will be work- 
ing closely with Ron.” 

This move will come as a sur- 
prise to Miracle customers who 
have known the Trump Card as a 
popular and long-standing item 
on Miracle’s list. It reflects in part 
a situation in which the Trump 
Card and Miracle’s Gold Card 
were effectively in competition 
with each other, at a ime when 
Miracle wish to devote their re- 
sources to developing and stretch- 
ing the QL hardware base. Ron 
Dunnett himself has considerable 


Digitiser Now Gold 
Card compatible 


The CQV | realtme videodigitiser 
manufactured by CL Systems is now 
compatible withthe Miracle Systems 
Gold Card. Hardware and software 
modifications have been made to 
handle the increased processing 
power of the Gold Card. The speed 
increase measured with the Gold Card 
inuse is more than 2.5 times, translat- 
ing to a picture update time of 12.5 
frames per second in quarter screen, 
and 7 frames persecond in fullscreen 
mode. CQV1 users with the Gold 


NASA bug 


warning 


NASA Computing in Norway has a 
message for customers who bought the 
new file manager disk Mate at the 
Munster show: a bug which can damage 
date when the ‘Write dir’ command 1s 
used has been fixed. The bug arose from 
a fix on an earher bug in the develop- 
ment process. Users should return their 
original disks for the free upgrade to: 

NASA Computing, Nerheim, N-5580 


Olen, Norway. 
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Card can now achieve near-full-live- 
motion video on the QL screen. 

CL Systems is offering an upgrade 
to current users who return their old 
QV 1. The unit will be modified and 
returned with the upgraded Imaged 
software, The upgrade cost is £30 for 
UK users and £33 for overseas users, 
inclusive of all carriage. 

Orders and enquines to CL Sys- 
tems, 403 Chapter Road, Dollis 
Hill, London NW2 5NG. Tel/fax 
081 459 1351. 


There have been a 
considerable 
number of enquiries 
about back issues of 
QL World recently. 
Weare still trying to 
find out where older 
back issues are 
available, and we 
will publish a guide 
to what is available 
and how to obtain it 
shortly. 


hardware experience, particularly 
in the area of disk drives, and has 
recently taken his redundancy 
from a long-standing career as an 
opportunity to devote time to his 
QL hardware and software busi- 
ness. 

The Trump Card will now retail 
at the slightly lower price of £95, 
the 512K Expanderam at £45, and 
the zero-ram version of the 
Expanderam at £20, 

An item which is staying firmly 
on the Miracle product line is the 
recently-redesigned Centronics 
serial to parallel converter, All the 
electronics for this classic items 
are now contained in the metal 


hood of the Centronics plug - “It's 
pretty neat,” says Stewart. The 
price is now down to £25 all in- 
clusive. 

On the Qubbesoft front, Ron 
adds that the C68 C Compiler is 
now up to version 3,00, updated 
with a 64-bit floating point and 
other advances. The new larger 
source code ts not yet available, as 
it is being archived to two disks 
“rather than increase the number 
of disks”. 


Contact Ron Dunnett at 
Qubbesoft, 38 Brunwin Road, 
Rayne, Braintree, Essex CM7 
5BU. Tel. 0376 47852. 


Upgrades and 
new material 
from Merz 


Jochen Merz Software has re- 
leased QD 4.00 at the Munster 
workshop, New features of the 
program include GOTO a list of 
SuperBasic procedures, functions 
or assembler labels: improved 
search/replace menu with four 
different search strings, and others. 
An upgrade for current users, with 
anew manual, costs £10 when the 
current disk 1s returned. 

A new game running under the 
Pointer Environment is The 
Lonely Joker. This combines three 
different patience games (similar 
to those seen on some versions of 
Microsoft Windows), which can 
be played with or without the 
mouse, The game costs £14.90, 
and a ram extension and 
SuperToolkil is required. 

Merz showed Qdos running on 
the Atari-ST QL Emulator with a 
68030 card running at 32 MHz, 
with programs running approxi- 
mately | to 20 times faster than an 
unexpanded QL. The sottware for 


O8000/10/20/30/40 versions will 
be available after April. The 68030 
accelerator board costs £500 fora 
25 MHz version and £600 for a 32 
MHz version, and will fit every 
Mega ST. 

For users lacking an 1005- 
compatible ACSI/SCS] adaptor, 
the new Lacom adaptor from Merz 
can be used to connect SCSI drives 
to-the Atari ST, Small and con- 
venient at ] 1 by cm, it costs £66, 

The QL Emulator itselfcan now 
be bought for only £139, 

Another new product is the QL 
SER Mouse, a mouse-driver for 
serial IBM-style mice to one of 
the QL’s serial ports. It behaves in 
a similar way to the Qimi mouse, 
but has three buttons, with ESC in 
the middle, WAKE to middle+letft, 
and SLEEP to middle+right. The 
driver costs £13.90. 

Contact Jochen Merz Soft- 
ware at Im stillen Winkel 12, 
4100 Duisberg 11, West Ger- 
many. Tel. (local) 02 03 501274. 
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Cowo Electronic, publishers 
of QTop, have expanded their 
range of QL products, alongside 
its SuperQL. hardware project. 
They have brought back to the 
market the text editor ArcEd, 
formerly sold by the now appar- 
ently-defunct Dansolt. The pro- 
gram has been revised and up- 
dated, and a fee update ts avail- 
able to current users on return of 
the original disk, self-addressed 
envelope and return postage. 

The SuperQL project has been 
codenamed ExeQtor. The first 
tower-mounted machines were 
delivered in December 1991 and 
12 were spoken for by the end of 
March. Cowo is planning a lim- 
ited edition of up to 50 units. 


Cowo is now the main, ifnot the only 
commercial, support forthe Thorrange, 
and they have an extensive list of 
products for the Thor, including Argos 
rom upgrades, mouse and eprom pro- 
gramming service. Users with Thor 
enquiries are asked to quote their model 
and specification; serial number; Qdos 
yersion number: SuperBasi¢c version 
(use PRINT VERS): Argos version; IO 
rom version (Thor XV1); XChange 
version; total ram size; keyboard type 
(language, 84 or 102 keys); whether the 
SCSI port is installed and if it works; 
manual type (version and language) 
and any other relevant information. 

Orders and enquiries to Cowo 
Electronic, Urs Konig, 
Munsterstrasse 4, CH-6210 Sursee, 
Switzerland. 


DIYT 
correction 


There was an error in the DIY 
Toolkit DEF project published in 
January and February’s QL World. 
Graham Worsnop of Surrey has 
spotted that the table at the end of 
the code lacks aterminal zero word. 
This could cause CALL to lock the 
machine, and has been corrected in 
the current DIY disk version, 

There is no problem if the code is 
loaded onto the common heap with 
Turbo Toolkit s ALLOCATION or 
the DIY Toolkit extensions 
LINKUP and RESERVE, as zero 
bytes are automatically added to 
pad the space to an eight-byte 
boundary, The same ts true if 
RESPR is used on Minerva while 
tasks are running. 

However the extra zero word 
must be added before loading the 
code into resident procedure space, 
ormerging itwith othertoolkit files. 


Machine CodeErrata 


One line faded out of Listing 
two in Systematic Machine Code 
Programming last month (part 7). 
The faded line should read: 
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To correct the hex loader, change the 
last line to read thus: 


1OLO DATA 
“462500007 FS 


Ifyou have saved the code file but not 
the loader, this sequence of commands 
will load the old file, link it correctly to 
Basic, and save the corrected version: 


X=RESPR(628) 

LBYTES FILP]_DEF_CODE,X 

POKE_W X+626,0 

CALL X 

SBYTES 
FLPI_NEW_DEF_CODE,X.628 


To fix the assembler source, add 
DC.W 0) just before the end. Simon 
Goodwin apologises for the error and 
will try never to make the same mistake 
again! 


CMPI.B BYTE,AI ;BYTE 
ADDRESS IN Al 


Ict us know if any other lines were 
faded tn your copy. 


OLSystems 
WANTED 


QL user Brian Richardson of 


Wallington ts hoping to gather together 
a QL system for the use and assistance 
of residents at the Harvest Care Homes 
and school for the elderly and mentally 
disabled, which QL World understands 
has been affected by government 
legisation withdrawing support. 

Mr. Richardson says that he “grew 
up with Sir Clive, metaphorically 
speaking, so] am used to computers he 
designed up to and including the QL.” 
What he needs to start his project is 
donations of working QL hardware. 
He says: “Anything will be of use, 
broken, smashed, or in (hopefully) 
perfect working orders;expansions, disk 
drives, monitors, printers, software, 
anything QL-related at all, even single 
microcasscties or games.” 

The residents of the home have 
learning difficulties. but, says he, “You 
never know, one of them may turn out 
tobethe computer genius of the future!” 
Who needs genius? Anyone who can 
offer anything to help these people to 
become regular computer users, like 
the rest of us, please contact Brian 
Richardson at 21, Firefly Close, 
Roundshaw Estate, Wallington, 
Surrey SM6 9HE. 


Text87 Plus4 is now available from 
Software87, Plus is a bottom-up re-write 
of the established wordprocessor text87, 
best known for its high-quality multiple- 
font handling. 

Amongotheraccomplishments, the new 
text8? offers an enhanced menu system 
with context-sensitive information: new 
dialogue boxes: cursor move by character, 
word, line, paragraph. screen and page; 
erase by character, word, line and block: 
block and goto operations: very fast search 
and replace in both directions, case de- 
pendent and independent: hard space and 
hard and soft hyphenisation, File opera- 
tions include merge, block save as plain 
Ascii or fully formatted document, import 
(Quill files retain style markers) including 
ArchiveandAbacustiles; spellchecker with 
dictionary browse and automatic replace- 
ment supplied as standard, with size and 
language options, including American 
within the large English dictionary; up to 
eight documents open at once, with more 
than one window available per document, 
page preview. 

Continuing its tradition of font han- 
dling, text87 Plus4 can use “any combina- 
tion of small and large founts ... multiple 
paragraph formats with different line- 
spacing for cach .., several columns plus 
headers and footers .., used with the appro- 
priate printer-driver, text87 Plus4 can uti- 
lise the founts and character sizes built into 
modem pnnters,’ 

Text87 Plus4 also focuses on fast docu- 
ment handling. Times of 5 seconds to 
reformat a 385-line document (after a mar- 
gin reset), and 5 seconds to perform a 58- 
instance search and replace are quoted. 
Plus four ts designed to be fully compat- 
ible with all QL roms including US roms, 
the Trump Card, Gold Card, QL/Atari 
emulator, QPac // and Taskmaster. Toolkit 
H Altkews can be Hotkeyed in the Powter 
Environment. 

Text87 Plus4 costs £79, 2488 24-pin 
drivers cost £15, typeset0-deskjet drivers 
for HP Deskjets £20; same for GQ3S( 
5000 and EPL4 1000/7100 £40; fountext88 
and founted89 for 9- and 24-pin printers 
£40, Existing users should enquire for an 
upgrade price. Prices include all carriage 
including airmail overseas, Orders (cheque, 
Eurocheque. postal orders) and enquiries 
to Software87, 33 Savernake Road, 
London NW3 2JU, UK. 
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MPEN QHANNEL 


Open Channel is where you have the opportunity 
to voice your opinions in Sinclair QL World. 
Whether you want to ask for help with a technical 
problem, provide somebody with the answer, or 


Support 


I have started to write letters 
on the subject of the QL’s future 
a number of times. Each time, 
my thoughts have changed, and 
the letter has not been finished. I 
have been working for a large 
publishing software house (that 
does not support the QL!) for a 
couple of months now, and the 
company attitude to hardware and 
software (we use Macs, PCs, 
Amigas and workstations among 
other things) has helped stabilise 
my ideas. 

After all the pie-in-the-sky 
comments on the subject, hope- 


HHL (or even Maxwell). 


markers. 
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SEES OPVRRRIE 


Editor’s notebook 


To my great joy, everybody by now should 
have their first copy of the new QL World, with 
our new address, new phone number, new infor- 
mation on subscriptions, and explanation for our 
recent idiosyncratic scheduling. No more wait- 
ing for post lying lost at Panini House. No more 
wrestling with subscription cheques made out to 


Then there is the new typesetting system. 
New to us, that is: we would like to get a line from 
anyone who has experience of porting text 
straight from a QL system to a Mac system. | am 
also collecting ways of converting QL text files 
for the PC-based part of the system. The most 
successful route so far uses PC Conqueror, 
which converted a text file, including assembly 
language listings, losing nothing but the tab 


Richard Alexander of CGH comments that 
they publish a program called 3D Terrain as well, 
and that it is not the same as the one from 
Sharp's that we reviewed last month. 


fully the following represents a 
down to earth view. 

1) Emulation - in other words, 
trying to perpetuate the QL scene 
through another machine's suc- 
cess. To my mind, whether the 
QL is pretending to be a PC (or 
Amiga, or whatever), or whether 
we provide another machine with 
ways to run QL software, the 
result is much the same: actually 
having a machine 1s better than 
emulating it. Running software 
ona machine in its native mode is 
far more efficient than emulating 
it. The best emulation is com- 
paratively inefficient. Inany case, 
there is no way you can emulate 
a Mac. 

2) Total rebuild - redesigning 


just sound off about something which bothers you, 


write to: 


Open Channel, Sinclair OL World, 
The Coach House, Tackley, Oxon OX5 3BN. 


the QL to be utterly desirable and 
selling millions. This is unlikely. 
Look at the manufacturers who 
pour millions of pounds into new 
machines and operating system 
upgrades. Unless acomplete ‘new 
QL’ could find some previously 
hidden niche market, its sales 
would never justify the develop- 
mentcosts that would be incurred. 

3) Upgrades - or, why change a 
winning formula? Why not? They 
work, they keep current users us- 
ing the machine, have lower de- 
velopment costs, and provide an 
incremental upgrade path. Not 
only that, but there are well-es- 
tablished QL suppliers - who are 
expert at producing well-consid- 
ered, marketable upgrades - who 
have kept the machine going as 
long as it has already. 

The point of my letter is: don’t 
waste time dreaming of trans- 
porting the QL to some mythical 
glory. Instead, support the likes 
of Miracle Systems, T F Services 
and Digital Precision, and so on, 
In return. they are likely to do 
everything they can to keep the 
QL strong. If you want to see a 
‘Super QL’ - buy their products, 
don’t pirate software, and tell 
them what you would want to 
buy in the future. They are ca- 
pable of doing the rest. 

Andrew Toone 
Liverpool 


Editor’s comment: the main 
problem encountered by the QL 
over the years is that the hard- 
ware has been somewhat unreli- 
able and indiosyncratic com- 
pared to, say, PC hardware. I say 
‘somewhat’ advisedly; anyone 
who uses a PC compat for other 
than basic wordprocessing or 
spreadsheeting will know that the 


frustration and timewasting of 


getting hardware and software 
running easily matches that of 
other formats. We have now come 
to a point where long experience 
is producing consistently efficient 
upgrade paths - often at first or 
second stab, which is a good 
record. In other words, Andrew 
is right, 


Stuck 


Somebody may be able to help 
me with this. | am using Quill to 
write my letters, and I have a prob- 
lem with the Printer_Dat. At the 
end of the letter, the printer head 
stays at the same position that it 
stopped in. When the next Ictter Is 
printed, the carriage return does 
not work and the printing starts in 
the middle of the page. 

The only way that I can get 
over this is to switch the printer 
off and on again, so that it resets. 

The printer 1 am using Is a 
Taxan, and has been installed 
correctly as far as 1 know, using 
the information in QL User, Sep- 
tember 1985. 

Carry on with the good work. 

A R Kempton 
Southampton 


Thanks 


Thank you so much for sending 
replacements for the two issues of 
QL World which did not come: 
Lazarhold have sent us a copy of the 
January 92 issue, but that was all. | 
am so pleased that we once more 
have an unbroken sequence from the 
May 1986 issue, which was bought 
just after we got our first QL. 

Since then, most of what | know 
about computers generally, and the 
QL in particular, has been gleaned 
trom QL World: my wife relies on 
me foranything ‘technical’ (the blind 
leading the blind?) as she uses the QL 
mainly for WP and family history 
research, 

Having finally settled back here 
trom Gibralter, we are waiting forthe 
arrival from there of our household 
stuff, including the second QL, Then 
we'll have one apiece, and no more 
competing for ‘hands on* time! 

Many thanks for all the interest 
and accurate information: we do ap- 
preciate it very much. 

Gordon and Dorothy 
Perrett 

Weymouth 

Dorset 
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Abacus 


Abacus is much under-rated. 
Iam often surprised how much 
programming is possible ina 
single cell. More articles on 
Abacus, please, Does anyone 
know how to Order in reverse, 
ic largestto smallest? Most other 
spreadsheets can order in either 
direction. 

Among the spreadshects I use 
are monthly bank statement rec- 
onciliations, which I keep for a 
couple of years. An update pro- 
gram I have written automati- 
cally deletes reconciliation 
sheets over two years old. This 
depends on each file having a 
recognisable name which indi- 
cates teh date, and is not more 
than eight digits long. I always 
put the file name in call Al, and 
for the reconciliation sheets | 
use a form *“Chb9203’ (as for 
March 1992). | include in cell 
GI the number of the month 
which ts used at various points 
on the sheet. [ncreasing this 
number produces the next 
Monthly sheet. [n order to pro- 
duce a new filename in cell Al 
at the same time, | coded in the 
following: 


“Chb’+date(0)(3 to 
4y+if(G1< 10, O"'+chrtindex(col() 
+6,row( 448)),0° U +chrlindex(col(), 
+6,row()+38))) 


This produced the required 
result, but it will not all print out 
if F for formulae is selected - 
only the first 60 characters will 
print. 

Another spreadsheet use isa 
monthly account, and I wished 
to add each month’s totals to an 
annual summary. Again the 
number of the month in cell G1 
produces the correct heading on 
the monthly accounts. The cod- 
ing is best explained with an 
example. Row 41 is the annual 
summary fora particular month; 
the name of the month is in cell 
B41 and one of the End of Month 
totals is to be taken from the 
monthly account helfin cell D9 
and copied into D41, but only if 
it is for the correct month. I 
coded D41: 
‘if(B4l=month(G1),.D9 .D41y. 
The result is a little disconcert- 
ing. On the screen the cell D41 
may contain, say, £45.00, but if 
the cursor is put on D4], the 
‘contents’ at the bottom of the 
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screen contain the coding above. 

The only way to zero out the an- 

nual summary at the start of anew 

year Is to zero-fill all monthly to- 

tals, then cycle cell G1 through 
from | to 12. 

EE Stocker 

Waterlooville 

Hampshire 


Trumpeted 


May I, through your column, 
express my sincere thanks to 
Steven Honeyball of Miracle Sys- 
tems who resolved a Trump Card 
disk drive interface problem for 
me free of charge. The fact that ] 
had purchased it second hand and 
that it was brought to the latest 
Mod state makes it all the more 
impressive and arefreshing change 
in an age of indifferent service. 

Keith Lock 
Portwell 
Dorset 


Comment: Yes, gladly. This is 
actually the second letter I have 
had recently thanking Steven for 
his help and assistance. Which 
means that ... either Stuart has 
opted for a name-change after all 
that publicity we gave him back in 
April... or that we have finally 
discovered how he gets through 
enough work for two men! 


Save and 


When you write a program you 
should save it often, especially 
when you test and debug it. Some- 
times it may be hard even to re- 
member which program you are 
working with. I have made a little 
procedure to do the deleting and 
saving job. 


10 DEFineé PROCeéedure 
scovincimess) 
20 IF LEN(narnes$}=1 THEN 
60 DELETE 
“device &myprog” 
MOSAVE 
“device 3 mypnog 
50 ELSE 
30 DELETE “device” &names 
J0S4VE “device &names 
80 END IF 
$0 END DEFiné sav 


Line 20 checks that if there is 
no given name together with pro- 
cedure name example sav “ “, 
then is first deletes the old 
“myprog” program and saves a 
new version of it. Else, if you 


have typed sav “test!” with a 
name in it, itdeletes the program 
named “test!” and saves the new 
version of it. This way, you can 
save different versions of the 
program easily. When I start to 
write the program I first load that 
procedure and chance the name 
“myprog”™ to the name of my 
working program. | haven't seen 
such a program yet in OL Worle, 
so if you are interested to print it, 
it has been a great help to me. 
Kalevi Himaliinen 
Tampere 
Finland 


Editor's comment: Backing up 


files in development under Qdos 


has always posed a puzzle. The 
standard solution is to save the 


file under alternate names, delet- 


ing the last-but-one file as you go. 
Using the routine above saves time 
but has two risks: should the power 


fail, or the computer lock, while 


the delete-and-save is in progress, 
both files will be lost. Also, ifa test 


file with the same name exists on 


your directory (for example, from 
another program you have been 
developing recently) that file will 
be overwritten without warning. 
What is needed is a similar rou- 
tine which will re-name the pre- 
vious file as a backup, and write 
the current file to the main 


filename, deleting the previous 


backup file (last file but one), re- 
ducing the danger of losing all 


files if a malfunction occurs dur- 


ing the saving process. Checking 


for duplicated file-names during a 
. E , ‘ 


delete-and-save process ts another 
STOry, 


Big words 


There scems to be an implicit 
beliet (for instance, Bryan Davies 
mentions it in the February OL 
World) that the larger the diction- 
ary in a spellchecker, the better. 
Digital Precision’s Perfection, and 
the new version of textS7 offer vast 
dictionaries, but for most users 
these are actually less useful than 
smaller ones. 

There is a difference in pur- 
poses between a paper dictionary 
and an electronic one. The first 
provides us with words we do not 
know; the other traps wrong spell- 
ings of words we do know. Some 
of those incorrect spellings will 
form real words, maybe unknown 
to us, bul to be found in a large 
dictionary, and so passed as cor- 
rect by a spellchecker using sucha 


dictionary. 
For example, if | were to type 
‘dod’ instead of “did” - an easy slip 
a small spellchecker would throw 
this up, but a large one might not, 
becasue such a word exists, My 12- 
volume OED has a third of a page 
giving seven definitions of ‘dod’. 
There is a need to study the opti- 
mum size for aspellchecker. Clearly 
it should include all the words we 
know, and none that we do not, but 
since we all have different-sized 
vocabularies perfection (with a 
small p) is impossible. I believe the 
best compromise is a dictionary of 
about 15,000 words with the facil- 
ity for the user to add his or her 
specialitics. 
Ken Whyld 
Caistor 
Lincoln 


Editor's comment: Perfection 
(with a big P) offers a choice of 
spellchecker sizes from moderate 
to very large: the new text87 Plus4 
offers its English spellchecker in a 
choice of two sizes. The ability to 
add to (or edit) the dictionary is 
personal requirements is perhaps 
the most important facility in any 
spellchecker. 


Seconds out 


With reference to the article Three 
in the Hand by Mike Edwards in the 
April OL World, | was surprised to 
read Mr Edwards’ comparative speed 
trials of similar functions on the three 
wordprocessors in question. [ have no 
experience of The Editor or textS7, but 
have used Perfection a great deal and 
am keen to defend it. 

Mr Edwards claims that to move a 
block of text or to relate a string takes 
Perfection 25 seconds. From my expe- 
rience that this is untrue. Even while 
working on long files, [have found that 
Perfection can move a block of text, 
practically independently of its size, 
position and distance moved, in under 
three seconds. | have also found Per- 
fection to be equally fast in replacing 
strings, although this isobviously more 
dependant on the particular variables 
involved. Perhaps Mr Edwards forgot 
thedecimal point in someothisresults! 

The article also suggets that it 1s 
impossible to change the printer driver 
data during each printing session. To 
putthe record straight. different printer 
data files can be brought into use at any 
time through the normal menu system. 

John Bunce 
Mill Hill 
N London 
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INFORMATION 

Program: Polytext 

Price: £17.50 

Supplier: CGH Services, 
Cwm Gwen Hall, 
Pencader, Dyfed, 
Cymru SA39 SHA 
Tel (0559) 384574. 


any QL users have, 

over the years, be- 

come accustomed 

to Quill’s veryown 
way of working, and tend to be 
loathed to change, despite the 
idiosyncrasies of thisnow some- 
what dated program. One of 
the main features missing from 
Quill is the ability to present 
textin column formats (such as 
you would find in a newspaper 
or OL World), 


Reprocess 


Nick Ward has produced 
Polytext withsuch usersin mind. 
Itcannot alter Quillitself to pro- 
duce columnar output; instead 
it takes the Quill generated ‘ 
_lis’ filesand then pre-processes 
them prior to sending them toa 
printer to give the desired 
number of columns, What is 
more, Polytext has a limited 
ability to allow you to merge 
small pictures with the text, thus 
enabling the user to create out- 
put which is both varied and a 
little more professional in ap- 
pearance than would otherwise 
be the case. 

Polytext is supplied as a col- 
lection of various files on a disk 
(or microdrive), together witha 
l4d-page A5 manual. The 
manual would appear at first 
glance tobe morethanadequate, 
but, unfortunately, if you do 
experience problems when us- 
ing the program, the manual is 
of little help (the problems 
mainly seem to relate to failings 
of the program rather than of 
the manual), and recourse to 
the publishers is the only real 
answer. 

A boot file is supplied on the 
disk version of the program (a 
minor contribution by yours 
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It i6 quite simple to 
go into various columns 
of printing. Although you 
cannot see anything in 
Quill as you type the 
document (this would 
reguire a complete 
re-write of the Quill 
program), you can put a 
Folytext command at the 
start of each paragraph, 
telling Polytext how to 
format the text once it 
has all been typed and is 
ready for printing gut. 
All of Quill‘s normal 
features are available as 
if you were using Quill’s 


POLYTEAT 


truly), which enables you to ac- 
cess easily Quilland the various 
utility programs provided by 
Polytext. Although each of the 
Polytext programs can be 
multitasked, Quill itself will get 
in the way unless it has been 
patched to stop it from grab- 
bing, all the memory. 

You are better off setting up a 
separate disk for use with 
Polytext, containing the differ- 
ent Poly text files and the Quill 
program file. Thisis because the 
standard Quill program will 
only recognise ‘printer_dat’ as 
its printer driver information 
file, and any files which are to 
be processed by Polytext must 
use the special version of this 
(which is supplied). 

The manual explains that any 
documents written within Quill 
must be altered slightly if they 
are to be processed by Polytext. 


O._w 


title 


The 
Underline commands of Quili, 


was 


ensure that 
text. 


produced quite 


the title was 


own printer_dat 


These of course 
righ wari pe | 


very 
file. 
cover 
underline, Bold, and iow 
script; 35 well as all af 
thes possible 
combinations. 


On top of this Polytext 
allows you to format the 
different paragraphs in 
Normal plus Elite sized 
print, compressed print, 
double height and double 
width falthough of 
course, this will depend 
very much on your 
printer’s own abilities). 


The amendments necessary are 
very minor. Once you have writ- 
ten your document in Quill as 
normal you will then need to 
plan how your document is to 
be laid out (ie which parts are to 
appear in columns and how 
many columns). This should 
really bedone by hand on paper 
so that you can decide the opti- 
mum column widths and gaps 
between columns. 


Amend 


Once the layout has been 
planned, you will then need to 
amend your Quill document 
(from within Quill) by typing in 
the various Polytextcommands. 
The commands appear in curly 
brackets and are only necessary 
where the layout is to change. 
These commands tell Polytext 
whether to justify right, centre 
or left, the number of columns 


| oe =, Str 


simply by 
but also 


in the centre of the 


UBing the 
including two Folytex 
page and was in 


Rich Mellor 
finally gets 
his very own 
column! 
(This month 
only.) 


to print with the width of the 
columns and the margins, the 
typeface and the name of a 
graphics image to merge with 
the document. 

The justification commands 
(eg {~PJR]}) are quite simple to 
use, butas withall Polytext com- 
mands (other than the graphics 
command), they must appear 
ona sido line above the 
pharagaph(s) to which they re- 
late. 

The most complex of the other 
two sets of commands is the 
command which sets up the for- 
mat for columnar output. This 
takes five parameters specify- 
ing the number of columns, the 
gutter, the column width, the 
number of lines between 
changes in layout, and the text 
type. Polytext can handle up to 
seven columns across a page, | 
but on a standard 80-column 
printer three or four columns 
will really be the acceptable 
limit. The size of the gutter is up 
to you, but there is no option to 
set a larger left margin than a 
right margin and so whatever 
figure you decide upon, your 
text will appear centred. The 
formula needed to calculate the 
maximum width of a column is 
actually different to that printed 
in the manual and is in fact: 


NM 


normal Bold and 
t commands to 
enlarged 
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POLYTEXT 


(column width+1)*number of 
columns)-1+(2* gutter width)< 
line length 


For those users who find it 
difficult to calculate the column 
width, one of the programs in 
the Polytext package, reck_obj, 
will work out the optimum size 
for you. This is a very simple 
program and although the 
manual does not go into depth 
about its operation, it is easy to 
use. 

Last, but not least, the user has 
to include the ‘text type’ in the 
Polytext command. This tells 
Polytext whether to print the 
next few columns in one of five 
text styles (normal, elite, con- 
densed for reduced}, double 
width or double height); al- 
though the actual effect of these 
styles will de- 
pend upon 
your printer 
(some print- 
ers, for exam- 
ple, can print 
double- 
height, single- 
width text, whereas others can 
only print double-height, dou- 
ble-width text). Unfortunately 
this text type can only apply to 
the whole of a paragraph (al- 
though Polytextwillsupportthe 
normal Quill typefaces within a 
paragraph as well as NLO and 
Italics). 

The figuresshow prepared for 
Polytext output, There are some 
odd characters at the top and 
end due to certain of Polytext’s 
idiosyncrasies (see below). 


Fokytext 
been nice 


Print 


Adding pictures to a Polytext 
document is also quite easy — 
you merely need to include in 
your document a command 
similar to |[PG:flpl-example— 
pic). Some users may find that 
the printer driver falls down on 
their machines in this area, and 
it cannot be altered by the user 
(unlike the text printer driver). 
However, if you have an Epson 
compatible printer, you should 
not have any difficulty (the pro- 
gram worked fine on my MT- 
81). The program could how- 
ever do witha little more devel- 
opment in this area, since the 
graphics printer driver is quite 
slow and can only handle sim- 
ple pictures —and is suitable for 
logos or simple clipart. The pro- 
gram does not handle colour 
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takes Quill a long way fivom what it once was. 
were wisible from within 
te get around this should not pose 


a 
typing, but the method Polytext uses 


well and the user will tend to be 
restricted to black and white im- 
ages. 


Text types 


By way of assistance, a simple 
program isincluded in the pack- 
age to ‘grab’ parts of OL screens 
for use by Polytext. This pro- 
gram is again relatively simple 
touse—you merely have to load 
the program and enterthe name 
of a screen file. You can then 
choose the part of the screen to 
be ‘grabbed’ by placing two 
crosses at two diagonals of the 
required area. |would have pre- 
ferred this to have beenachieved 
using a rubber-banded box, but 
then this package is never quite 
as easy to use as it should be. 
The actual area allowed is dis- 


the actual columns 


appointingly small, but should 
prove adequate for relatively 
simple pictures when used ina 
multi-column part of a docu- 
ment. 

Anyway, having prepared 
your Quill document, you will 
then need to Print the docu- 
ment to a file, using the special 
version of PRINTER_DAT sup- 
plied with the package. Having 
done this, you can leave Quill 
and enter the main Polytext pro- 
gram. 

The main Polytext program 
starts up with a small window 
which invites you to set certain 
parameters. You will need to 
enter the name of the document 
(the ‘_lis’ file produced by Quill) 
and check that the page length, 
line length and printer control 
filename are correct. Polytext 
does not have any defaults for 
the filename and therefore 
filenames should be entered in 
full including thedriveand _lis 
suffix). You can also set the top 
and bottom margins, the start 
page number and the footer (no 
headers are supported). The 
footer will need to be in the 
form of text followed by the 
page number, followed by more 
text if required, and can be left, 
right or centred. This allows as 
much complexity as Quill, but 
nowhere near as many options 
as Perfection (by Digital Preci- 
sion), for example. 


The program can then be run 
(press R), and it works quite 
slowly, reading inthe document 
paragraph by paragraph and 
reformatting it as required. The 
program shows the document 
on screen as it is processed (al- 
though this is definitely not 
WYSIWYG) so that you can get 
some idea of whether your for- 
mat commands are having the 
desired effect. This generally 
works okay, but I was some- 
what surprised to find that the 
program failed with an error 
(‘Index out of Range’) on an 
extra paragraph which ap- 
peared in the original of Figure 
one (this was without apparent 
reason and deleting the para- 
graph allowed the program to 
continue without any further 
problems). 


At the end of each page, the 
program gives you the option 
to print out the page, see a 
‘cameo’ of the page or go onto 
the next page. Requesting a 


Cameo 


camco will give you an idea of 
how the whole page will be laid 
out (although it might have been 
better to leave this on display 
while the page was being proc- 
essed) and you can then decide 
whether it will look too clut- 
tered before deciding to print 
itout. Figure twoshowsa page 
of the final formatted docu- 
ment. 

Users who havea slightly dif- 
ferent printer to those which 
the program currently sup- 
ports may be able to get a 
printer control file from the 
suppliers, but for the unfortu- 
nate few who are still having 
problems, you will need to al- 
ter the file ‘PRINT_DAT’ sup- 
plied with the disk (this should 
not be confused with the Quill 
PRINTER DAT file which 
should not be altered). The 
manual explains that to alter 
the printer control file you will 
need to load it into a text editor 
or import it into Quill. 

The actual control file con- 
sists of various descriptions fol- 


Tt would have 
Guill as you were 


lowed by printer command se- 
quences. Thesequences should 
be altered to suit the codes 
listed in your printer manual 
(if you are having difficulty, I 
am certain that the suppliers 
willhelp you), and control such 
things as the end-of-line com- 
mands, commands to switch 
onand off bold, underline, near 
letter quality, italics, con- 
densed, double-height, double- 
width, elite, subscript and su- 
perscript. You can also alter 
the commands needed to 
switch your printer into graph- 
ics mode (assuming itsupports 
a 480 pixel per line graphics 
mode). Unfortunately, the con- 
trol file (and Polytext) does not 
support translates (you there- 
fore cannot generally print both 
£and #in the same document), 
preamble or 
postamble codes. 
This is a major 
omission espe- 
cially in view of the 
fact that the status 
ofthe printer when 
Polytext starts its 
work will inevitably be a mov- 
ing target. Thesimplest answer 
to the lack of a preamble/ 
postamble code is to include 
them in your Quill documents 
— looking in the QL manual 
(concepts section) you will see 
that you need to press CTRL ; 
to get ESC. You can therefore 
build up the standard printer 
initiate sequence by typing 
CTRL ; and then @ (giving 
ESC,@). 

Polytext does, however, use 
four translate sequences to 
switch on and off italics and 
NLQ. It is therefore possible to 
turn these on and off from 
within a paragraph, but it is 
somewhat obscure that the user 
cannot supply theirown trans- 
late sequences, especially since 
Quill would normally support 
10 such sequences! 


Dependent 


Overall, Polytextisaniceidea 
but could do with certain extra 
features to make it really use- 
ful. Theactual output produced 
is highly dependent upon the 
type of printer being used and 
therefore only those users with 
the more recent printers will 
be able to make the most of the 
program. It often strikes me as 
a set of routines looking for a 
program. 
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Just 


his final article outlines the miss 

ing procedures: alter and abstract. 

There are various methods for 

altering the fields of records, some 
quite elaborate with either a moving asterisk or 
cursor with special windows for effect. A sim- 
ple and perfectly adequate one numbers each 
field, and only requires a single keypress to 
initiate alteration. | suppose my programming 
is somewhat spartan, but then! amconcemed 
with results rather than artistry. 


Data Jumping 


Line 2090 indicates that you can jump 
through the data in large or small steps. 
Pressing Tab moves forward 625 entries 
in one go, and F1 back the same distance. 
The remaining function and cursor keys 
| reduce the jumps to a final one step ata 
time. SELect operates a second time to 
prevent overstepping the boundaries. | 
have deliberately omitted an insert, since 
it is almost as quick to use the menu's 
‘Enter data’ to add the extras and then 
sort. Youcan also use the Alter procedure 
as a viewfinder, without making altera- 
tions, simply to nip about your entries, 
checking here and there. This is quicker 
than screen list. Of course, screen list 
could be improved by inserting a line at 
825 to enable listing to commence from 
any chosen point and then emending 
| lines 830 and 850. 


825 input#0,'From which line?’;to 18;s: 
cls#0 

830 for x=s to cost(0) 

850 if(x-s+1)/20=int((x-s+1)/20) then 


By now you may begin to appreciate how 
addictive programmingcan be, like anartform, 
always capable of improvement. A useful ab- 
stract procedure is much more difficult to plan 
for the reader because of the wide variety of 
choices. | have chosen as an example to pick 
| out the titles by a given author, but it could 
equally have been books of a certain vintage, 
authors covering certain topics, etc. The bulk 
of the procedure would still remain the same, 
only those lines where a comparison is made 
would need changing. 

There are two ways to abstract. You can 
start from the beginning, finishing at the 
end. The time taken is quite bearable even 
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Starters 


for 


for a few thousand and, more importantly, 
the listcan be unsorted. The second method 
requires a sorted list, where a binary search 
locates a required entry in a fraction of a 
second. The program then backtracks to 
the earliest correct entry, then forward to 
the last one. | have given you the option of 
either and also the option of printing to 
screen or printer. 


Listing One 


( defproc alter 
x=1 

60 rep loop 

0 alterline 
rep loop2 


menu - ESC, alter - 
i=code{ inkey$(-1)) 


sel on 7 
=9 236 244,200,216: if 


end sel 
els: alterline 
end rep toop2 
cls#0 
se] on i 
=49: printed auth{(xi\fi 


=51: print#O,year-(- 
=52: print#d,costl> 
=100: less=cost(?i 
for w=x to less 


title$(wtt}: 
end for w 
cost(0)=less 
end sel 
end rep loop 
cls#0: menu 


defproc alterl]ine 
cls: at 6,10: print'Entry 
30;'2  ';title${x} 

7410 print\to 30;'3 
2420 enddef 


Listing Dive 


‘2h input#0,'From which line? 
30 for x=s to cost(0} 


In the third and last 
part of his Basic 
programming tuto- 
rial, Don Smith 
adds two remaining 
procedures. 


Suppose that you had 10 items and the 


cls#0: print#O,'TAB,P1-5,cursors - 625,125,25,5,1, 
press number, delete - D': 


sel on i 
=9; x=x+625: =232: x=x-625: =236: x=x+125 
=244: x=x+25: =248:; x=x-25 
=192: x=x-5: =216: x=x+1 


=232 ,240 248,192,208: if x<1: x= 


=50: print#0,titleSix' * 


= input#d ,.ast(x) 


at 18,40: print w: autS(wi=a.:d(w+l): 
years (w)syea 


‘syearS{x)\\to 30; '4 


"sto 185s: cls#0 


GS) 7f{«-s+1)/20=int((x-s+1)/20) then 


Binary Quirk 


The binary search has a built-in quirk. If 
you miss out the 0.5 in line 2610 and your 
required entry happens to be the very last 
entry, it will never find it. Similarly, with 
the 0.5 in place, the first entry will never 
be found, which is the reason for line 
2600. 


x>cost(O): x=cost(Q) 


'$('-' 25): input#O ,auts{(x) 
'_" AO}: input# ,titles{x) 
}: input#d ,year2(x} 


tittes(w)= 
wel}: cost(wi=costlw+1) 


‘sx to 303'1 = 'sautg(x)\\to 


"scost(x) 


required entry was.the 10th. The search 
starts off with low=1 and high=10, so the 
variable ‘av’ commences as (1+10) divided 
by 2=5.5 with ‘int’ removing any decimal 
places, making it 5. Line 2630 lifts ‘low’ up 
to value 5. We now have (5+ 10+ divided by 
2, then ‘int’, giving 7. If you continue, you 
will find that you cannot get beyond 9! The 
binary search operates within a REPeat 
loop and only needs around 20 loops to 
find an item in half a million, all in a fraction 
of a second. This is why line 2640 counts 
each looping, because if you haven't found 
it by the time ‘count’ equals 20, then it isn’t 
there. Line 2660 checks this and if a value 
greater than 20 is noted the program 
switches via the alternative at line 2930 
and prints a message to screen. If an item 
has been found that corresponds to the 
search, then from line 2670 a search is 
made backwards to find the first mention. 
Having located it, at 2740 searching pro- 
ceeds forward to the final appearance of 
the required name. Now knowing ‘start’ 
and ‘finish’ line 2810 proceeds to print out 
data. 


Printer Tips 


One very useful tip if producing much 
printer hardcopy is to be found in line 3260. 
The Epson handbook, which was very easy 
to follow, gave clear instructions for setting 
tabs horizontally across the page, using 
chr$(9). | found however, that whenever 
printed data came close to the next tab 
| setting, the printer invariably overshot the 
mark and then backtracked to the correct 
tab setting. This meant that instead of a 
smooth passage of the ribbon cartridge 
from one end to the other, it proceededina 
series of jerks, back-forth-back-forth, tak- 
ing twice as long to print. If you consider the 
second fills, which prints blank spaces as 
they all do, | have allowed 27 spaces for 
author, which itself has just 25 maximum 
characters. By doing a subtraction, 27 mi- 
nus the length of the author, the result is 
how many blank spaces before the next 
item so that all columns are in line. Also it 
gives a quick check of how much space the 
printout will take. In line 3260, we have 
5+27+42+6+ cost, which equals 80 plus 
characters. Since Elite (line 2570) allows 
97 characters per line, we have plenty of 
space. 

If you are a novice reader and you have 
successfully got the program up and 
running, sufficient techniques have been 
covered to enable you to string together 
other programs for your own use. 
Moreover, when you write your own pro- 
grams, nothing can go wrong that you 
can't go back and correct - and improve. 
You are in control. The QL even usually 
tells you which line it cannot accept so 
that you can list or edit the line to find out 
your mistake. In the final analysis, one’s 
whole thought processes are subtly al- 
tered (for the better), the more program- 
ming you undertake - an alternative to 
yoga! 
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Listing Three 


2430 : 


2440 
2450 
2460 
2470 


2480 


2490 sel 


2510 
2510 
2520 


2530: 


2540 
2550 
2560 


2570 


2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 


2700 
7710 
2720 
2730 
2740 
2750 
2760 


2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 


2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 


defproc abstract 

at 4,35: under 1: print'SORTED LIST’: under 0: printy. 
to 15;"A'to 20;'Author' 

at 9,35: under 1; print'RANGOM LIST': under 0: prints. 
to 15;'B'to 20;'Author' 

j=code( inkeyS(-1)) 

on j 

: sortedaut: =98: randomaut 

end sel 

enddef 


defproc sortedaut 
cls: cls#0; input#0,"Author's nane(with or without initials" 
to 45;nam$ 
arint#0,'To screen - 1, te printer - 9': sereen=inkeyS$(-1): 
if not screen: elite: space12 
high=cost{0): low=1: count=0: long=len{nams) 
rep binary 
if aut$(1,1 to long}=nam$: av=1: exit binary 
av=int((low+high) /2+.5) 
if nam$=aut$(av,1 to long}: exit binary 
if nam$>aut$(av,1 to long): lowsav; else: highsay 
count=count+!: if count>20:; exit binary 
end rep binary 
if count<=20 then 
rep back 
if av>1 then 
if aut${av,! to long)=nam$: avsay-1: else: start=av: 
exit back 
else 
start-av: exit back 
endif 
endrep back 
rep forward 
if av<cost(0) then 
if aut$(av,1 to long}=nam$: avsavel: else: finish=ayv: 
exit forward 
else 
finish=av: exit forward 
endif 
end rep forward 
for x=start to finish 
if screen then 
seeline 
if (x-start+1)/20> int((x-start+1)/20) then 
cls#0: print#0,'Press any key ta continue or ESC - 
back to menu' 
c-code{inkeyS(-1)}: if c=27: menu: else: cls 
endit 
else 
prinline 
endif 
endfor x 
if screen: cls#0: print#0,'Press any key for MENU‘: 
Pause: menu: else: formfeed: menu 
else 
cls: for y=1 to 3: at 15,30: paper 7: ink 0: print 
"NOME NOT FOUND': pause 50: cls: pause 25 
endif 
paper 2: ink 7: menu 
enddef 


2980 : 


2990 
3000 
3010 


3024 
3030 
3040 
3050 
3060 


ABSTRACT UNSORTED AUTHORS 
defproc randomaut 
cls: cls#0: inputed,"Author's name, with or without initials" 
to 45;namS 
print#0,'To screen - 1, to printer - 0': screen-inkey${-1}: 
if not screen. elite: spacelz 
long=len(namS}: found=0: search=0 
for x=1 to cost(0} 
if autS({x,1 ta long)=nam& then 
if screen then 
seeline: found=found+1: search=search+1 
if found and found/20=int{found/20) then 
cls#0: print#0,'Press any key ta continue or ESC - 
back to menu’ 
c=code{ inkeyS(-1)} 
if c=2?: menu: else: found=0: cls 
endif 
else 
prinline 
endif 
endif 


J endfor x 


if search=0 then 
cis: for y=1 ta 3: at 15,30: paper 7: ink O: print 
"NAME NGT FOUND': pause 50; cls: pause 25 
paper 2: ink 7 
endif 
if screen: cls#0: print#0,'Press any key for MENU': pause: 
tenu: else: formfeed: menu 


230 enddef 


( defproc prinline 


printé4 xi fitl$(' | 5-len(xjisautS(x}; fillg(' | 27-lenfauté(xJ)); 


titles(x)sfill${' | ,42-len(titles(x)}) syeart (a); 
Fill8(' ',6-len{year%(x))};cost{x) 
enddef 
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P H Warne turns his 
Abacus spreadsheets to 
the task of keeping track 
of standing orders and 
other money movements. 


igel Bates’ article in the July 1991 

QL World, on using Abacus to 

reconcile his bank statement, 

was a useful example of the 
simplest use of a spreadsheet. But most of 
the hard work was still being done on the 
stubs of his chequebook. One direct debit 
left out of the reckoning can give you a 
nasty shock when you find yourself in the 
red! 

The spreadsheet described here is a 
means of keeping a regular check on your 
bank account to avoid that situation. Per- 
sonally, | need to know in advance if | have 
to transfer money from my savings to my 
current account to avoid bank charges. 
Practically all our living expenses, apart 
from food, are settled by standing orders 
or direct debits, including Poll Tax, water 
rates, electricity, gas, car purchase, insur- 
ance, mortgage, etc. When trying to esti- 
mate what the state of the account will be 
ona certain date, itis easy to forget one or 
another of these payments. Others may 
wish to know how much they can safely 
withdraw from their current account for 
savings and investments, or to buy an 
expensive item. 

The finished product will not look like a 
bank statement, with all entries in chrono- 
logical sequence and three columns from 
Credits, Debits and Balance. Instead, this 
spreadsheet has two columns for each 
month (one for text, with credits and debits 
in two blocks. The sheet also overlaps into 
January of the following year to allow for 
checking until the bank sends the final 
statement for the year. 

The biggest problem concerns regular 
payments and/or credits, particularly those 
due quarterly or biannually. Foran account 
spreadsheets to be useful, all thee should 
be entered automatically once the due 
date in each month is passed. So it may be 
helpful to analyse the conditions which 
must be met for a debit or credit to be 
included in the account column for a par- 
ticular month: 

1. The date of the account must be on or 


Abacus: only 
following orders 


TABLE 1 


Column widths (use FS G Wonn col ENTER col ENTER):- 


A 16s C 1; E ts all others remain at 10 unless you wish 
to increase the width of the monthly *text® columns (H, 
JL:Nrete.). A width of £2 will still allow printout in 
condensed font across 3 A4 pages. 


Numbers to 2 decimal places (F3 U D ENTER ENTER) 
Settings via Design command (F3 D) 


Al 
El 
A2 
B2 
A3 


B3 
13 


AF? 


Al68 


£4 
H4 
14 
AS 
115 
16 
116 


Copy 


AH14 
Al? 
Fi? 
B18 
DLs 
Fis 
G1e 
ALY 
B20 
C20 
p20 
E20 
20 


G20 
126 


AG20 


Auto-calculate OFF (A) 

Zero shown as blank (B) 

Set any other design parameters you require (e.g. 
lines per page; characters per line) at the same 
time, then ENTER 


Optional text (Account numbers etc.) 
Optional text ("For current Balance go to cell AEx«") 
Text "ACCOUNT FOR YEAR" 
Text "1991" (or current year) 
Text "DATE:-" (Right justified with F3 Jd ENTER 

ENTER R AS ENTER) 
askt "Enter date, with farmat DD/MM/YY my 
month( (cal ()-7) 42) 


Copy (F3 C) 13 to K3s 13sK3 to M33 13103 to G3; 13:3 to Y3 
Calculate (F3 xX) 


Text "YEAR" (Right justified) 

str (val (B2)+1,2,0) 

Text "DATE" (Right justified) 

Text "CONSTANTS: -" 

(N.B. see text for instructions on entering this) 
“19"+B3(Len{B3)-1 to )+"/"4strival (B3 (instr (B3,"/") +1 
to })4100,2,0)(2 to d+"/"+atr (val (B3) +100, 250) (2 to ) 

days (AI3) 

val (AI3S(S to 2) 

waltAIS(? tad) 

int C(AIS/S-int (AI5/3) pa B+O. 1) 

int ((AIS/6= int (AlS/6) *6+0.1) 


Convert to integer display with F3 U ENTER I ENTER Al4:AIS 


ENTER 
Text “Balance Brought Forward:" 


Balance 


Tent “=nen-—— "(Right justified) 

Text "TOTAL CREDITSs-" 

if ((col ()-7) /2>AIS+i f (val (@A13)=val ($AG2),12,-0}.0.5um 
(142T45)) 

T1S8116 to Ki5; 115tKi4 to MiSs: 115016 to QiS; 1158ats 
ta Yi5 

sum(T1lérAg1e) 

Text "STANDING ORDERS & DIRECT DEBITS" 

Text “ist/Latest" 

Text "Start Dater" 

Text "Last Date:" 

Text "Paymenti" (Centre justified) 

Text “Amountr" (Right justified) 

Text "1. MONTHLY®-"' 

Date of Ist. payment in standard farmat 

if CRAT4 daye (B20) 15) if (SAIS val (B20(9 to )),-1,0)) 

Date of final payment 

I#(GAT4edays (D20).15, i f(C20+#ATS a0, 12509) 

if (C2015, B20, i f(E20"15.020, str (val (WAIZ) +14 ($AI5S=1, 

C20-0), 2,034" / "45 tr (BAI5+0204E20+100,2,0) (2 to }+B20 

(8 ta })) 

Amount of payment 

if(C20¢15 and days (#B2+"/01"+B2(8 to )) >sdays(B20) and 

days ($B2+"/01"+B20(8 ta ))<=days(F20) »G20, $H4) 


similarly at K20,MZ20-020, ta AE‘20. except that for "/O1", 


type "/02", "/03","/04", ate, NB. DO NOT USE the COPY 
functlon. The formula in each column is different. 
similar to [20, except that $462 is substituted for $B2 
in formula. 


after the first payment is due; 

2. The due date in that month must be on 
or after the date of the first payment: 

3. The due date in that month must be on 
or before the current date; 

4. The due date in that month must be on 
or before the date of the final payment. 

These last two conditions are conver- 
gent, and may be restated as a single 
condition, viz: 

3(a). The due date in that month must be 
on or before the date of the most recent 
payment. 

The treatment of dates in Abacus is 
limited. Dates are ten character text strings 
with three possible display formats, but for 
use in calculations they must be in the 
format YYYY/MM/DD, with leading zeros 
if necessary. All other formats will be re- 
jected, with error reports. The days() func- 
tion will give the number of days elapsed 
since 1 January 1583, but there is no 
complementary function, as there is in 
SuperBasic, to give the date string from 
the number of days elapsed since that 
date. If one wishes to compare or manipu- 
late years, months or days of the month, it 
is necessary to slice the date string and 
use the val() function, converting the result 
back to text, if required, with the str() 
function. Leading zeros are inserted by 
adding 100 to the modified val(}) and slicing 
off the first digit of the subsequent string. 
The disadvantage of all this is that it tends 
to make the formulae for date manipula- 
tion rather long and often longer than 
Abacus of the QL will accept (the Psion 
PC4 and Exchange programs will accept 
longer ones). 


First and final 


Two columns, B and D, are allocated to 
show the dates of the first and final pay- 
ments of a direct debit or standing order. 
The restriction on length of formula has 
been overcome by having a ‘flag’ column 
for each of these dates, which a third date 
column uses to calculate the date of the 
most recent payment. The formula in each 
month's column to calculate compliance 
or non-compliance with the three condi- 
tions above then becomes relatively sim- 
ple and brief. 

The formulae have been drawn up to 
make date manipulation totally independ- 
ent of a particular year. The dates shown 
in columns B and D can, therefore, be the 
true limiting dates for that particular pay- 
ments; and to start a new year, it is only 
necessary to change the year in one call 
(B2). The only drawback to this is that the 
memory required is more than the 23K 
which a spreadsheet on an unexpanded 
QL is allowed. However, the formulae can 
be modified provided all the dates in col- 
umns B and D relate only to the current 
year and the thirteenth monthly column is 
omitted - more about that next month. 

Asmall block in the top right hand corner 
of the spreadsheet shows the current date 
in the format Abacus requires, and below 


Right justify text in cells T20:Aag20 


A21 


Text "2, QUARTERLY#-" 


B22tAGZ2 same as for BZOIAGZO except for 


C22 


and 


A23 


lf (SAT 4<days(B22).15, int((val (P2216 to })/3=int (val (B22 
(6 to 19/3) )#3+0.1+1f (val (B22(6 to 3) /3mint (val (B22(6 
to 3/3) and $415<=#3,3,0))) 

if ($Al4>adays(D22),15,if(GAIS<C22 or ($AlS8C22 and #AI4 
fval (B22(7 to d)de-P, FF C(C22093 and C22>$AI7) aor (C22= 
GAIT and SAlé<val (B22(7 to 3}9,5,0))) 

if (C22815,B22. 1 f (E22=15,D022-8tr (val ($AlS)-i f (E22"—-9, 15 
O},2,0)4"/"4etr (SAIS-GAI7+ 1 f (C2283 and #AIS=3,0,022)- 
E22+100-2-0) (2 to )+B22(8 to 3)) 


the formulae in cols.] to AG are only copied to the 


relevant months for that particular payment. 
Text "3. BI-ANNUAL! - 


B24:AGZ4 same as for B22:AG22 except tor 


C24 


E24 


F24 


A25 


lf ($AT4<¢ days (B24).15, int C(val (B24(6 to }}/6-int (val (B24 
{& to 3)/6))#6+0,1+if (val (B24(6 to 1) /6=int (val (B24(6 
to })/6) and #AIS<=6s6.0))) 

if (@ATA>edays(D24),15, 1 f(GAIS<C24 of (SATS"C24 and #Alé 

<val (B24(9 to ))),-6,1f( (C2406 and C24>$AI8) or (C24= 

SAIS and BAlS<val (B24(9 to )))26,009) 

if (C24=15, 524, | f(E24=15,024-str (val (#Al3)-i f(E24e~45 1, 

O)-2,-O)+"/"+5 tr (HAIS-BATS+i fF (C2426 and $A15=4.0,C24)- 

E24+100,2,0)(2 to )+B24(8 ta )}) 

Text “4. ANNUALT-" 


B2étAGZb same as for 1221AG2Z2 akcept for 


C26 
E26 
F26 


if (#A14< daya (B24), 150) 

if (#AI4>=days (D26).15.0) 

[#(026815,B26, if (E26"15,. 026, str (val (GAS) -i ft (bAl 4c days 
(BAIS( to 4)+B24(S5 to ))+1+0}+2,0)+B26(5 to 1)? 


ABACUS 


A27 
Copy 
634 
134 


Text “OTHER DEBITS#-" 
TiStAGLS ta 133 
Text "TOTAL DEBITS#-" 


(118: 133)) 
Copy 
¥34 
AHS4 sum (1S404G34) 
Copy 11S to AH3S 
AF36 Text "BALANCE ON" 


if ((col ()-7) /2>HAIS+i f (val (#AlS) eval (#AG2Z).12,0)505 sum 


134 to K34; [34ik34 to M34, 1341034 to G34; 1348034 to 


AGSS AIS(F to )+ATSCS to BI+AlS¢ to 4) 


AH36 AH14—-AHS4 


AHS? Text “semesen" (Right justified) 
and finally, convert figures in ranges C201C26 and E201E26 
to integer display format with'— 
(F3 U ENTER I ENTER CéC2é ENTER}. 


Note 


The formulae for weekly» fortnightly or 4-weekly debits 


or credits aret- 
alumn Fa 


if (val (Bxx)Cval (682), $B2+"/01/"+str (6-int (( (days (iB2+ 
"/OL/01")-days (Bxx))/n-int ((days (#B2+"/01/01")-days 
(Bxx)) fd dant, 1) 4+100.2-0) (2 to >» Bax) 


Column It 


if (WAT4Cdays (Fixx). HS, Cint CCl fF (HAT4 day (Dun), daya (Dx x) 
s$414)-days(Fxxd) /nd+4) 4Gxx? 
where xx is the row number and n=7;14 or 28 as appropriate. 


that, the days corresponding to that date, 
the number of the month and the day of the 
month. These values are referred to by the 
formulae in the ‘flag’ columns and the 
column showing the date of the most re- 
cent payment. 

For monthly payments, the ‘flag’ column 
C can have one of three values: 15 (a 
purely arbitrary value) if the first payment 
is not due until after the current date; -1 if 
the day of the month is less than the due 
date; or zero. The ‘flag’ in column E has a 
value of 15 if the current date is after the 
date of the final payment, 1 if the current 
month is January and the ‘flag’ in column 
C is 1, or zero. The formula in column F 
then selects one or other of the dates in 
columns B or D, if the value in either ‘flag’ 
column is 15, or else combines the values 
in them with elements of the current date 
to arrive at the date of the most recent 
payment. 


By making the flag columns C andE one 
character wide and blanking zeros, either 
a hash (#) is displayed or nothing, in the 
monthly and annual payment sections. In 
the quarterly and biannual sections, a 
number up to 3, or 6, or a hash may show. 

Define grid 

To start off the spreadsheet after load- 
ing Abacus, use the details in Table one to 
define the grid and default settings. Then 
enter all the text and formulae in Table two. 
The dates you insert in columns B and D 
can be purely nominal, but there must be 
dates in them before you enter the rel- 
evant formulae or error messages will be 
generated. Type the formulae exactly as 
shown, taking care not to omit any brack- 
ets, commas, quotes or dollar-signs. Be 
careful not to confuse numeral 1 with capital 
letter |. There are a lot of references to 
cells incolumn Al (yes, Al) inthe formulae, 
but none to bells in column A, whichis only 


H 4 > B wr oD 
TIBANK ACCOUNT #12345678 - A.N,Y. BODY 
2tACCOUNT FOR YEAR 1991 
u DATEH- AV 12/91 


‘Ei OF 


4 Balance Brought Forward!~---~ 


SISTANDING CREDITS:- 

é Start date? Last datet 

TSNONTHL Yi 

6iPension Fund 1SPL/OL/16 # LFRL/OT1G # 1FP9L/0R/146 

+H LPPL/O4/16 # 1992/03/16 L9PL/TL LS 

10t 

LLJOTHER CREDITS3- 

121 

43! 

14) 

15: 

1OtSTANDING ORDERS & DIRECT DEBITS:- 

1?t Start datet Last datet 

1881. MONTHLY!- 

19'Ncle & G'd Water 1991/08/01 
1991/08/01 

Building Society 1990/10/03 

1991/04/03 

1991/08/03 1992/01/03 

19ORO4/03 1999/03/03 1991/12/03 

1989/07/14 # LFGS/OS/14 = LHL 14 

LPPOLOG29 H IPHL/02/29 # 1991/02/29 

1991/05/29 # LPL /05/29 1991/05/29 

1991/06/27 1992/02/29 1991/11/29 


ist/Latest 
Credit? 


Ist/Latest 
Payment? 


1994/08/01 H 1991/05/01 
1991/12/08 # 1991/12/01 
1P1/03/03 1991/03/03 


19/12/03 ££ 
iScoltish Lite 
HF .C Trust 
Poll Tar 


2, QUARTERLY: - 
Br. Gas Service 
3. BI-ANNUAL: ~ 
Oxfam 


19/02/11 2 199A tA LD # LPPL/ LAT 


1989/03/01 3 1993/03/01 & 1991/09/01 


B4HUnlon Subscrip'n 1990/01/31 
35'National Trust 
% 


1995/01/31 
1995/09/28 


1991/01/31 
1990/09/28 1991/07/28 
STICHEWWES (Payee and/or Number}2- 

38 
9 
40 
41 
42} 
43 
44 
451 

44iFigure 2 - specimen completed account. 


used for text. Note that the entry in cell Als 
needs special attention because it begins with 
a quote. If the quote is typed first, Abacus will 
think that you are entering text, whereas you 
want to input a formula. The way round thatis 
to miss out the initial quote until you have types 


i a B (8 1EL OF i; 6 
LPACCOUNT #12345878 

2IACCOUNT FOR YEAR 199! 

z DATES 26/9/91 


4 Balance Brought Forward? 


SISTANDING CREDITS 
Start Dater 


ist/Latest 
Last Date! = Credit? 
1990/01/01 
SiOTHER CREDITS! ~ 
104 
{ht 
12! 
13) 
14 
13) 
1b! 
LTISTANDING ORDERS & DIRECT DEBITS 
Start Date: Last Dates 


1FS/OL/01 1991/09/01 


TOTAL 
ist/Latest 
Payment? 
1790/01/01 1995/01/01 1991/09/01 
2112, QUARTERLY! 
Zt 
2313, BI-ANNJAL!- 
ro 
2514, ANNUALS - 
26t 
27 OTHER DEBITSI- 
2a 
a4 
cH 
3 
Ryd) 

RB 
34] 
EST) 
it 
BiFigure 1 - the basic spreadsheet. 


LFHO/O2/01 2 1P9S/O2/GL F 1991/08/08 


LFHO/OS/O1 = LOPS 12/01 1991/08/01 


1990/08/01 1PP5/0E/OL = 1991/01/04 


TOTAL 


24 


464.37 
590.34 


TOTAL DEBITS! - 


For current balance, go 


For current Balance go to cell AESS 


January 
358,04 


February 


Amount! 


466.37 


Cash 12/2 100.00 Cash 


Cash 


TOTAL CREDITS!- 
Amount? 


£23 82 


023.77 
141.31 


1991/07/03 # 1F9T/O7/03 £126.43 


113.66 
£25.76 
tB.B 
£31.20 
£28.89 
£28.50 


417,35 
£40.00 
14,00 


£14.00 
£38.00 


150,00 BPOPB 6/2 
15.84 Cash 4/2 
34.30 Beard 371 

250,00 B.S.S, 372 

Cash 16/2 


7 bh 
200.00 
45.00 
2.00 
20.00 


£525.61 


Cash 5/1 
BPOPE 8/1 
Beard 370 
Cash 23/1 


23,56 
100,00 


£497.76 


in the rest of the formula; then go back to the 
beginning (with the UP-arrow) and type the 
missing quote. If desired, the amounts in the 
totals cells, and in column G, can be displayed 
in monetary format (F3 U M ENTER range 
ENTER). 


i k 
to cell AEsx 


January 
200,00 


November 


Amount? 


30.00 


CREDITS*- 


Amount? 
50.00 
50.00 
50.00 


50.00 


DEBITS:— 


Es AG AH Al 
DATE CONSTANTS! 
YEAR 1992 
January t APPL E208 
H 149355 
3 12 
| i 


Decenber 


+ 


120,00 Cash 2/12 


£7493 4d 


BALANCE ON 03/12/1991 = «£193.19 


osecees 


Next month, we shall look at the formu- 
lae needed for payments at intervals other 
than monthly, and finish the spreadsheet 
ready for entering some real figures. 


AH ot AL 
BATE CONSTANTS: 

YEAR 1792 
January 1991/09/26 
149287 
3 
26 


December 


3 


BALANCE ON 26/09/1991 


WS CENE 


UPDATE FROM 
DIGITAL 
PRECISION 


Digital Precision has presented 
updated versions of a number of its 
programs, great and small. Perhaps 
of the most interest to, many uscrs 
will be the Lightning Special Edi- 
tion - Gold Card version. The im- 
portant feature of this version is 
that 1 costs less, as it does not 
require the rom normally supphed. 
The price is £39.95, or as a £25 
upgrade from standard Lightning. 
Gold Card owners who already have 
the Special Edition rom can return 
the rom cartridge to Digital 
Precisionfor a £5 credit towards 
future orders, 

Professional Publisher part two 
now has even more fonts (‘the best 
high definition fonts yet’) and utili- 
ties: extract screen from anywhere 
within the page; compress page; 
convert alien fonts, Part two costs 
£29.95 alone; £49.95 the pair. 

Also for ProPub, the Laserjet/ 
Deskjetnkjet driver for HP print- 
ers gives superb output quality for 
£19.95, 

OMaths part two contains 
optimally speeded Mandelbrot and 
Julia set visuals; enhanced statisti- 
cal functions; terrain plotting; 
function evaluation, and more, Part 
two costs £59.95, or £99.95 with 
part one as well, 


For DOS users. Digital Re- 
search (DR) Dos 6.0 is now 
available, with many features 
advanced on DOS 5.00, includ- 
ing automatic disk compression 
on Write and decompression on 
Read, from 2x to 8x depending 
on the file, giving great storage 
space saving. There is also an 
on-line DOS reference guide. 
Many DOS users prefer DR- 
DOS to MS-DOS. Two manu- 
als, aready reference guide and 
a preconfigured ready-to-run 
QL/DR-DOS 6.0 disk is in- 
cluded in the price of £80, or 
£70 to listed customers who 
have purchased a previous DOS 
from Digital Precision. (DP 
notes that this is not a ‘return- 
to-upgrade’ arrangement - you 
keep your old DOS and get £5 
off the new one as well.) 

Certain combined prices are avail- 
able if two packages are ordered at the 
same time: £179.97 for DR-DOS and 
PC Conqueror Gold Special Edition, 
£139.95 for DR-DOS and standard 
Congueror:£ 109.95 for DR-DOS and 
Solititon. 

Orders and enquiries to Digital 
Precision Ltd., 222 The Avenue, 
Chingford, London E4 9SE. Tel. 
081 527 5493. 


Would anyone with experience in converting QL-originated docu- 
ments and listings for PC-compatible or Apple Mac systems please turn 
to the Editor's Notebook on page 14! - We are looking for advice. 
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Henry Orlowski 

One of the country’s best 
Quanta workshops took place 
on 25/26 April at the Walton 
Park Hotel, a fine but 
unimposing building overlook- 
ing the sea in Clevedon, Avon. 
The meeting attracted a good 
bunch of enthusiasts from far 
and wide, despite relatively 
low-key publicity, a testimony 
to the reputation for quality and 
excellent organisation achieved 
by the Bristol QL User Group. 

It's the prospect of meeting 
like-minded people, getting 
updates on the latest news and 
products, and the chance to 
spend some money that brings 
people to meetings like this. 

Who was there? Digital Pre- 
cision (with Freddy holding 
court), Miracle Systems, 
Dilwyn Jones Computing, CGH 
Services. Jochen Merz (all the 
way from Germany), EEC, TF 
Services and, of course, Quanta 
themselves. These “big boys’ 
were selling wares in good 
volume, especially the hard- 
ware suppliers like Miracle with 
their super Gold Card, and EEC 
with hard disks and interfaces. 
The Gold Card was reduced 
from £35 to a bargain £225 - 
worth having. 

The ‘small boys’ were there 
too. Adman Services had all 
their usual goodies and free 
advice. and Ron Dunnett 
(Qubbesoft) with his new pub- 
lic domain disk including a 


ZX$1 emulator! No stick-on 
16K expansions, though, 
thankfully. 


Quanta 
orkshop, 
Bristol 


Once of the simplest yet most 
effective gizmos I saw was 
the Rom Switcher sold by 
QLas. This switches between 
the Minerva rom anda JS (or 
JM), so that if you have pro- 
grams that won't run under 
Minerva, and you don't want 
to incorporate the patch, you 
can switch back to your 
unenhanced rom, This is £25 
from QLas. 

No QL meeting would be 
complete without screwdriv- 
ers and soldering trons. Be- 
ginners were having problems 
sorted out by experts; there 
were on-the-spot repairs, ship 
changes and refits going on. 
There were QLs that didn’t 
look like QOLs, and four-foot- 
long QLs with miles of spa- 
ghetti cabling. These are the 
idiosyncrasies that make the 
machine the enthusiast’s 
dream that it ts. 

When you've got all your 
upgrades and no longer need 
the old stuff, take it to the | 
‘bring and buy” stall, where 
Mike and Mike will do their 
best to sell it for you. If you're 
starting on the first rung, this 
is the place to get your bar- 
gains: complete QL systems 
with expansion, disks, moni- 
tor and software for under | 
£200, if you're lucky. 

And finally, for those who 
like a different kind of ex- 
citement, Quanta held their 
AGM on the second day, and 
quite a rousing affair it was, 
too. 
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ARCHIVE 


A=N+S-W=E+R-S 


Robin Stevenson 


proc start 
let UNDBR=0: let BOLD=0: let HIGH=0: let LOW=0 
let PLUSHS=" "+chr(0)+chr(8) | : rem SBT PRINTER SPECIFIC VARIABLES 
let LINEUPS= chr(0)+ehr(27)+" j"tehr(0)+chr(30) 
let BACKSPACES=chr(0)+chr(8 
let GOTOLEPTS=chr(0)+chr(13 : rem PROVIDED AUTO-LF IS NOT ON 
Type : rem LAUNCH THE MAIN PROCEDURE 
endproc 


describes how to use 


your QL as a direct 


proc Heading;Text$ 


typewriter under full 


if not UNDER: print chr(5):: endif 
print ink 6;chr(15)ichr 27}+"C" schr(30) ; mate tab 67;chr(250); 
er print “ B"(BOLD+1)s* u" UNDER+1);" H"(HIGH+1 L "(LOW+L): 
position-control print ahr tay vy tobe 4) ink 5+BOLD; 


if not UNDER: print chr 
endproc 


*: endif : rem TURN UNDERLINE OFF AGAIN 


from Archive. 


proc PrinTab;0ldPos,NewPos 


if NewPos?01dPos | : rem REPLACRMENT FOR LPRINT TAB 
his month's Archive Answeris abit may rept(" ",NewPos-01dPos) ; 
of an oddball as database endi 

endproc 


applications go. In fact it isn’t a 
database application at all. It is a 
| mini application in its own right, more 
along word-processor lines. 

One of the things a word processor is 
not too good at is fitting text onto a page 
which is already laid out. Often, it would be 
nice to use your printer to fill in an 
application form, or just add some more 
text to a page you have already printed. If 
you have ever tried doing this, guessing 
where the boxes or spaces would occur, 
you will know the chance of success is low. 
By comparison, an old typewriter could do 
the job tolerably well, because you can line 
up the paper and then type it in directly. 

Well, we are not going to let a steam- 
powered lump of metal get one up on 
electronic wizardry. Anything it can do, the 
QL can do better, and here it is - the 
program to control your printer directly. 
You can position the paper and print head, 
type in text (with full editing facility); you 
cancontrol underlining, emboldening, etc., 
and can even send printer escape codes if 
required. 


proc GetLine 

Heading; "Type the required text, and press enter." 

input TEXTS: : rem STANDARD TEXT INPUT 
endproc 


proc AsciiCodes 
local Ascii$: let TBXTS= "2"! let Ascii$= 
print chr(27)+"C"; at 0,0; : rem STORE CURRENT SCREEN CURSOR POS 
while TEXT$¢>"" : rem LOOP TO GET SEVERAL ASCII CODES 
print "Enter ASCII codes {end with blank) :": tab 67; 
input at 0,40;TEXTS 
if val(TREXTS): let AsciiS$=Ascii$+chr(0)+chr(val(TEXTS)): endif 
endwhile 
Iprint Ascii$;: print chr(27)+"D"; : rem PRINT CODES, RETURN CURSOR 
endproc 


proc LookUp 

local Key$ : rem SCROLLS PAPER UP FOR INSPECTION, AND RETURNS IT 
Iprint | print : Iprint : Iprint : lprint 

Heading; "LOOK AT PRINT: press any key to continue” 

let KeyS=getkey() 

Iprint LINEUPS ;LINEUPS; LINEUPS ‘LINEUPS; LINEUPS : 

endproc 


proc TypePace 
Heading; "TYPEFACE | Eee 
local CS: let CS=upper 
if CS="B": print chr(15);: let BOLD=BOLD=0: ink 5+BOLD: endif 
if cS="U": print chr(5)s: lprint pte ! let UNDBR=UNDER=0: endif 
if CS="L": let LOW=LOW=0: Iprint chr(17);: endif 
if CS="H": let HIGH=HIGH=0: Iprint chr (18)s! endif 
endproc 


ld eal [H]igh [Llow on/off" 
yi: ey( 


ie] 
8 
Advantage 


The advantage of using Archive instead 
of SuperBasic is the access to the Psior 
printer driver. Since every printer is 
different, and you have already customised 
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your printer driver to suit yours, that is one 
of the major programming headaches deal 
with completely. 

Well, almost completely. To give full 
paper control, itis necessary to add a few 
printer commands not covered by the 
printer driver. In particular, it uses 
backspace reverse paper feed, carriage to 
left; and printer buffer flush. In all these 
cases, you may have toconsult your printer 
manual if you wish to use them. 

The issue of buffer flushing in particular 
could give a problem. Some printers don’t 
print every letter as it arrives, but store 
them ina memory buffer until a completed 
line has been received. If this is the case 
you must find a way of fooling the printer 
into sending these characters, so that the 
print head physically moves into place. 
One such way (as shown in the listing) is 
to send a space followed by a backspace. 
If that doesn’t work you may need to hunt 
around the manual for an alterative. 


Variables 


All the printer-specific bits are entered 
as variable in proc Start. As listed, they 
should work with an Epson LQ emulation. 
Juki 6100 users should replace these with 
the alternative Start procedure shown in 
listing 2. Other printers may require 
something different again. Laser users are 
no-hopers on this particular application. 
The paper can not be seen or controlled in 
the same way. “Serves them right for having 
such a fancy kit,” did | hear someone 
mutter? 

The rest of the program is in listing one. 
There is no need to type in the remarks on 
the right hand side. These help explain 
whatis going on, but fill up useful memory. 
Once you have antered, and saved it, you 
can try itout. Allthe key-strokes are echoed 
both on the screen, and on the printer as 
you type them. The four cursor keys should 
move the print head/paper as required; 
while the return key will send a new-line 
and return the print head to the left. 


Tab Key 


The tab key moves the head to the point 
you last entered some text, or if already 
beyond this, moves ita further eight places. 
Shift+Tab will home the cursor back to the 
left again and clear the tab setting. 
Shift+Down will give a FormFeed 
instruction. Shift+Upis the ‘lookup’ feature. 
It scrolls the paper round five lines, and 
waits for a key-press before scrolling it 
back again. This gives a handy way of 
checking you are typing in the right place, 
but should not be used near the bottom of 
a page. 

The remaining functions are accessed 
by the function keys. F3 allows you to send 
Ascii codes to the printer. You enter each 
code number, in decimal, and finish witha 
blank entry. Only when you finish are the 
codes send, as a single string. These 
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proc Typ 

Tool Poe »Left ,H$,Control, Old: 

mode 0,8: 

let i chr(190)+chr 

let H =HS+ 

spooloff : let Control=60 

while Control<)27 
let control=60:Heading;H$ 


while Control)31: let Control= code(upper(getkey())): 
Iprint LINEUPS; 

7 {print ‘PrinTab;0,Pos: 
Iprint 7 


if Control=2: print chr (10V4: 
if Control=3: print chr(10 
if Control=4: print " "st: 
let Pos=Pos+1: endif 
if Control=5 and Pos: 
let Pos=Pos-1: endif 
if Control=30: print : 
if Control=29: let Old=Pos 
if Pos<Left: let Pos=Left 


else : let Pos=Post8: 


if Control=28: print chr(13); : 


let Pos=0: let Left=0: 
if Control=1l: cls : print | 


if control=20:AsciiCodes: 
if Control=21:TypeFace: endif 
if Control=22: error GetLine: 
let Pos=Postlen(TBXTS$): 
endwhile : mode 1,8 
endproc 


proc start 
let UNDBR=0; | 
let FLUSHS=" 


tet BOLD=0: 


let BACKSPACES= aN Mt 


r(8 
let GOTOLEPTS=chr(0 )+chr(27 +chr(0)+chr(9)+chr(0)+chr(1) 


Type 
endproc 


codes bypass the normal printer driver 
processing, so what you enter is what the 
printer will receive. 

The F4 key gives you control over 
underling, bold, high and low script. As in 
Quill, you simply type the initial to turn it on 
and off. While a feature is on, its initial 
appears on the top right corner of the 
prompts line. 

Finally, for all text entry, you press F5. 
You can then type in and edit some text. It 
will only be sent to the printer when you 
press return. Note thatin this case pressing 
return does not give anew line, as you may 
wish to add more further along. A second 
return is needed, after you have finished 
entering text, to give a new line. 

The system is designed for flexibility and 
control, rather than smooth efficiency. You 
could type a whole book using it, but | 
wouldn’t recommend it. A few lines on a 
printed form are much more its natural 


let Pos=0: let Left=0 

rint arpa omaha )+chr(77)+ehr(23) 
191)+chr(188)+chr(189)+" P5=text P4=type" 

F3=code SH +Da=FF +Up=look +Tab=left ESC=quit 


: rem MAIN LOOP, FOR SUCCESSIVE INSTRUCTIONS 


print chr(8); 


Iprint : 


endif 
print tab Pos;:PrinTab;0ld,Pos: 
Iprint GOTOLEFTS;PLUSHS; 
endif 

Iprint chr(12)s: 
if Control=10:LookUp:PrinTab;0,Pos: 
endif 


let Left=Pos: 
endif 


let HIGH=0: 
: rem NO PRINT BUFFERING ON A JOKI 
let LINBUPS= ch) tee (27) D"+chr(0)+chr(27)+"D" 


endwhile 
> endif 


+PLUSHS; 
: Iprint BACKSPACES; PLUSHS ; 


let Pos=0: endif 


endif 


t rem SH+TAB 

endif : rem SH+DOWN 

: rem SH+tUP 

+ rem 20 = B3 

: rem 21 = B4 
{print TEXT$; PLUSHS; 
: rem 22 = B5 


endif 


let LOW=0 


; rem LAUNCH THB MAIN PROCEDURE 


home. One useful technique for accurate 
positioning is to enter a single full-stop as 
a test. Using the lookup feature you can 
then see ifitis in the right place, and adjust 
the position accordingly before typing in 
the text itself. 


Key Presses 


If you are looking to extend the program 
yourself, one handy feature may be to 
send key-presses to a file, as well as to 
screen and printer. You could then use this 
to print out multiple copies, all correctly 
positioned on the form. With a bit of effort, 
you could even allow specific details to be 
typed at run time as well as standard text 
to be used every time. This would lift it onto 
another plane of functionality, but also of 
complexity. | have kept this listing short 
and simple, so it shouldn't be too daunting 
either to type in, or to understand. 
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ROCKFALL 


iS FIWARE FI 


ROCKFALL 


INFORMATION 


Program: Rock-Fall 
Publisher: CGH Services, 
Cwm Gwen Hall, 
Pencader, Dyted, 
Cymru SA39 GHA 
Price: £10 (Disk or mdy) 
Memory: 128K 


Rich Mellor 
gathers moss 
in a Boulder- 
Dash style 
game from 
CGH Services. 


any games 

players — will 

recognise the 

theme behind 
this game if I say that it has 
been based upon Boulderdash. 
For those of you who have not 
heard of this game (which has 
almost become a genre in it- 
self), you guide a little man 
around various screens col- 
lecting diamonds, The only 
problem is that between you 
and the diamonds is a load of 
earth which supports huge 
boulders. As you dig away at 
the earth (by moving your man 
across it), the boulders can be- 
come dislodged, causing a cas- 
cade of rocks and diamonds 
down onto your head and kill- 
ing you, or blocking your path. 


t 


sa 


Beg 


Rockfall is a very colourful 
variation on this theme and, 
together with falling rocks, you 
must also avoid two types of 
monsters who will chase you 
around the screen where the 
earth has been cleared away, 
and even walls which can grow 
across your only escape route. 
Monsters can be killed by 
dropping rocks on them, and 
thankfully, when they die, they 
will explode and (if you are 
lucky) take some of the walls 
with them. 


is 
Sixteen 

There are a total of sixteen 

levels, although you can choose 


to begin your game on four of 
these, which will enable you to 


practise the more difficult sec- 
tions. Each level is actually 
about four times the size of the 
QL screen, and as you move 
around more and more of the 
level is displayed. I am not 
however quite certain whether 
the lower levels are supposed 
to be easier, since I have only 
been able to complete two lev- 
els (level one and level nine - 
both of which are levels you 
can elect to start on). 


In order to complete each 
level, you will need to collect a 
certain number of diamonds 
(the number of diamonds re- 
maining to be collected is 
shown at the bottom of the 
screen). Luckily, you should 
not need to collect all of the 
diamonds on each screen and 
therefore early mistakes do not 
always ruin your chances of 
progressing to the next level. 
Also, in view of the fact that 
your attention will be more 
directed to the playing area 
rather than the bottom of the 
screen, there is an audible 
warning as Wellas a bar which 
is drawn across the top of the 
screen when you have col- 
lected enough diamonds. You 
may then proceed to the exit 
(which may not appear until 
enough diamonds have been 
collected) to enter the next 
level. 


Amoeba 


Some of the levels involve 
much more thought than oth- 
ers. For example, some of the 
levels incorporate what is de- 
scribed in the manual as a 
growing Amoeba. In order to 
complete these levels, you 
need to block the Amoeba’s 
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growth by careful placement 
of the boulders. When it has 
finished growing, the Amoeba 
will change into the diamonds 
which you need to collect in 
order to complete the level. 
Now, this does require quite 
some thought when you need 
to stop an Amoeba that starts 
grows downwards, when all 
of the displaced boulders can 
only fall down! 

Sound is quite limited in the 
game (no fancy background 
music here), and can be turned 
off by pressing the ‘\’ key. You 
guide your little man around 
the screen with the cursor keys, 
and can even dig ahead of 
yourself by pressing the Space 
key at the same time as a cursor 
key. | would however have 
preferred to be able to re-de- 
fine the playing keys so that | 
could play the game more eas- 
ily on my full-sized keyboard. 


Slug command 


On a standard OL the game 
goes along at a medium pace, 
giving you plenty of time to 
think. However, Gold Card 
users may need to use quite a 
large value with the SLUG 
command (supplied on later 


SI iCiai” ws 
STOP PRESS 


Gold Card roms) in order to 
make the game playable. (Do 
you si when everyone 
complained that games were too 
slow?) 

The game comes witha small 
manual, whichis adequate, but 


Ss 
ait pry st 


PT 4 
Abs 


Falkenberg Hard Disk Drives 


BUS Ex 2 sh 
Horizontal) Vertical Connector £22.00 


Hard Disk Kit 
32MB Hard Disk £300 
20MB Hard Disk £258 


The Hard Disk Kit comes without Box and PSU. Hf used with a gold card and bus expander the 
access time is greatly improved. (On a OL with Gold Card, approx 350,000 Kilobytes/second) 


‘The QL Hard Disk Loterface and Hard Disk controfler hoards can be mounted in various configurations 
as required. The following items are normally carried m stock and cam be selected as required. 


for disk interfac 


Complete Set, boxed with PSU 
£365 
£322 


‘old card and hard disk controller 
Flexible cable Connector _£ 30.00 


= 


Horizontal/ Vertical Connector £ 59.00 


UE 


Tito T 


Into fe. Gold Cond} >] | Inter 
‘faces faces 
— ft. > Into OL 


BUFFERED BUS Ex der, 5 slots, (For ex 


5) i into QL 

BUS Hetineainc, l slot, pathy to reduce the width of extended QLs 
RAM/ROM Battery Backed Memory Card (Ram to 896K, Eprom to 256K) From £ 79,00 
For Option Details on any product send 5.A.E. 


(eg. HD 
a Interface) 
rit) ite QL 


other than Trump/Gold Card) 
Flexible cable Connector £ 69,00 


LUEL LS 


£ 17.00 


Serial 3 Button Mouse 
Remote Infra Red Mouse 


EEC 


18-2] MISRUURNE HONISE 
CHILTERN NILE 
CMALPFONT ST. PETER 
Sho WUE 


TEL; 0753 888866 
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Externally fitted into SER2, comes complete with interface anal software, No 
Internal fitting required, 3 button mouse gives 5 more functions than the QIML 


NB. We still have lots of QLs, 1 & 2 Mb disk drives, peripherals and components. 
See previous adverts or contact us for details. 


Payment terms: 
CWO, Access, VISA et cetera 
Cheques - allow 10 days 
Belivery: 
—— £9 Pasiage - £4 

flo cuillobilay, EOF. 
FAX: 0 53 887149 


ROCKFALL 


[believe that there will soon be 
incorporated into the program 
ascreen giving an explanation 
of the symbols used by the 
game. As a whole, the game is 
well designed and plays very 
well. It is colourful and con- 


tains enough items of interest 
to keep younger players 
amused as well as older OL 
users. This certainly represents 
excellent value for money. 


TF Services Ff 


MINERVA 


The ULTIMATE operating systen upgrade 
The? MINERUA rea vith pathery ¢ m 
lean, CPASHPROOF clock: £ .nterface (J®C) for 
| retets etc, Con qutcQant from battery ran. 


(her fegty 


( Uorn’ fast reset etc 


MED so PY] UPGRACE c 
reend ran PROTECT LEGS!) ond disk or 2 the | 


st uk OL scrolling bulletin 
larger ucth inderrat ional 
apd 1m of “tes fine luding 
s bible © 


Multitasking for electronic na:i, PRESTEL etc, 
ceT downloud Comat i vith Tandata Gconnect 
onnect RS2320 to drive 
nana! 


FILE TRANSFER - to transfer text AND programs 
error free GNODEN betueen computers 
Available for [BA conpats, ATAR] ST & Sinclair OL 
of Farge uth RS23920 comms Like 
per nec, Coble £18 ‘mame 2 n/cs) 


Ali preces incluae UAT and postage in the Lk 


verié Place, London ¥2 IRB 


OLLING B85 FOR ORDERING “GL HELP and FAX 


HERMES 


A replacenent QL co-processor (IC BOUF LPL) 


Do you get keyboard bounce? 
Do you find Fast serial inpel unreliable? 
Do you want te run an HST 14400 bes modem? 


If you can say YES to any one of these, then 
this is a product you have been waiting For 


Gives up te 19288 bos RELIABLE sersai snout 
» Independent baud rates 
. Stops keyboard “bounce Cunuanted repeat chrs) 
fuzzy’ and ‘randow’ sound 
input and ouhput ~snes 


inaaked wore safecy 
FITTING a simple job. Sempiy remove the 


BL top | reus) ond replace the chip marked 
"BB49' next to wicrodrive 1, 


PRICE “including netual & softuare! [25 


Foul ty GL boards 
Keubeord membrane. 
SORE cpu. i 
£10 BOL ULA.. 
804 €8 HO WLA Lee 
Other components (sockels etc)... ploe PHONE 


QL REPAIRS 


Qls tested uith Thorn EWI test rig 
and ROM softuare 


(MOU hordwore extra if required) 
E27 - 6 month guarantee 


HAIL ORDER ONLY 


lel: @71-724 9833) 


- B71-7B6 2379 


TOOLKIT 


Simon Goodwin looks through ‘windows’ for the 
QL and remedies some Qdos display problems he 


DIY 


sees there. 


* 
* 


* 
* 
* 


* 
* 
we 


* 


crunch_line iea.l 


save_lines 
save_it bsr 


* 
* 
* 


return_fp 


* 


start 


crunch bsr 


store bsr 


save_window ber 


Listing One 


* Sinclair GL Worid DIY TOOLKIT ~ WINDOWS for @DOS 


Version 1.2, Copyright 1992 Simon N Goodwin 


lea.l define,al 
movea.w $119.w,aZ 
jap {aZ) 


base address = W_CRUNCH ( #ch% , 


get channel 
subq.w #2,33 

bne bad_param2 
2lait,a6.1),dé 
#2, $58 (26) 
save window 


mave.w 
addq.1i 
bra.s 
base_address = W_STORE ( #ch% ) 
get_channel 
subq.w #1,02 
bre bad_param2 
maveg #0,06 


find_window 
mMove.w 

moveg 

moveq 

trap 

tst.l1 

bne.s 


move. Ii 
move. W 
move.1 
mave. 1 
move. bk 


# Buta’ ,—4(a@) 
224 lad), (a+ 
di, 224 (ad) 


move. i 
move.w 
move. Ww 


dS, (ag@+ 
d4, (a) + 
dé, tag+ 


Aa —> 


Foint at names & addresses 
Read the BP.INIT vector 
Link SuperBasic extensions 


flag% [(@=All 2=Red 4=Green} ) 


Pick up channel number 
Check parameter count 
Two are expected 

Pick up campression flag 
Tidy RI stack pointer 


Store window contents 


Pick up channel number 
Check parameter count 
Only one is expected 
Flag for no compression 


Put details in registers 
Save width for later use 
RAM owner is this task 
MT.ALCHP trap key 
Allocate Common Heap RAM 
Did that work? 

Return error code 


Preserve address of RAM 
Retrieve line word count 
Store flag for DISCARD 
Point on to the next ALCHP 
Extend the ALCHP list 


Recerd total space used 
Record line count 
Record compression flag 


First video word, A®@ ~> Buffer for screen information 


D4.W is count of pixel lines-i, D@W is line width in words-1 


subq.w 
bmi.s 
bne.s 
addgq.1 


#2,06 
save_lines 
erunch_line 
#i,a4 
save_bytes,a3 
Save_it 
save_words, az 
scan_lines 


bra.s 
iea.l 


RETURN_FF stacks D1i.L in SuperBasic 


move.W 
maove.1 
beq-s 
move.w 


add. 


di,d4 
di,dS 
normal 
#2079,d4 
di,di 


Check the CRUNCH flag 

If <2, store both bytes 
32, store green bytes only 
Point at first red byte 
Foint at byte saver 


Foint at word saver 
Call {(A3)> for each line 


floating-point form 


D4 will be exponent 

DS will be mantissa 

A most unlikely case! 
First guess at exponent 
Already normalised? 


here has been much fuss in 

recent years about the rise of 

‘Windows’ for computing appli 

cations; noisiest of all are the 

proponents of ‘Microsoft Win 
dows’ for IBM micros and clones. That 
package bolsters the MS_DOS system 
with fashionable windows and icons, plus 
multi-tasking (programs and megabytes 
permitting) and device sharing - as long as 
the programmers resisted the temptation 
to write directly to the PC hardware. 

It took them a while, but PC users are at 
leastlearning what QL owners have known 
for years - it is convenient and natural to 
run several programs at once, swapping 
between them at will. Microsoft Windows 
is slow and bulky, out that’s great news for 
clonesters pushing their latest hardware 
expansion. 

Alas, many good PC programs refuse 
to multi-task, because they were written 
for single-user systems and cannot share 
resources, Contrast this with QL tasks, 
which are concise and compatible, and 
it's easy to conclude that Qdos is still 
years ahead of the PC, especially if the 
68008 is supplanted by one of the faster 
Motorola processors, 

The QL has had multitasking and ‘win- 
dows’ from the start, unlike the PC, but the 
Qdos rom lacks facilities to save and 
restore the contents of displayed windows, 
so overlaps may disturb other displays. 

The latest DIY Toolkit project rem- 
edies this lack, and adds a handful of new 
display routines to move, highlight, com- 
press and re-colour QL windows. As ever, 
the code is concise, speedy and easy to 
use, on all Qdos systems; | have tested it 
on Minerva, Sinclair roms, and version 
3.10 of the excellent Amiga Qdos emula- 
tor. 

QL windowing systems are not new; 
they arecomponents of Qram, Qpac 2, and 
packages such as Turbo Toolkit. The DIY 
facilities build on their predecessors, 
packing twelve useful operations into just 
676 bytes of machine code. They auto- 
matically pick up the window size and 
position from the channel definition, and 
work with Minerva’s two screens - or even 
more, as | shall explain next month. 

My code includes a neat facility to re- 
claim the memory used for stored screens 
when you load a new Basic program. 
Screens stored by conventional 
windowing packages can gobble over 32K 
of memory each, so the DIY keywords 
allow fast, reliable compression options 
that halve the space required. You can 
also manipulate stored windows with 
popular commands from Toolkit 2, Turbo 
Toolkit and DIY Toolkit. The Qdos RECOL 
command is flexible but rather sluggish, 
taking several seconds to recolour alarge 
window. When many windows are in use 
it is convenient to have a quick way to 
highlight any particular one, so DIY Win- 
dows boasts a range of new re-colouring 
options, optimised for Mode4 displays 
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| 


¥ 
normal 


exit 
* 


* 


default 


* 


* 
swap 


+ 


* 


Listing Tiwe 


180 
118 


158 
168 
170 
188 


208 
218 
220 


240 
290 
320 
314 
326 
33 
340 


230 : 


bys.s normal 

subq-w #1,04 No, balve exponent weight 
mave.1 di,d5S Double mantissa to match 
moveq #15,d8 Try a 16 bit shift 


normalise move. dS,di Take copy af mantissa 


asi.l d@,dt Shift mantissa D@ places 
bvs.s teo_far Overflow; must shift less 
sub.w dd,d4 Correct exponent for shift 
move.l1 di,dS New mantissa is mare normal 
asr.w #i,0dd Halve shift distance 

bne.s normalise Tey shift of 8, 4, 2 and 1 


* Check there’s six bytes of space for the result 


movedg #6,d1 Number of bytes needed 
movea.w #ilA.w,ad BV.CHRIX vector 

jsr fag) 

movea.l #58(a6),al Get a safe AL value 
subq.1 #46,a1 

move. 1 al, #58¢a6) Grab & more bytes 
move. d5,2(at,ad.b} Stack mantissa 

move.w d4,@tai,aé.1) Stack exponent 

moveq #2,d4 Floating point result 
moveqg #9,da 

rts 


* GET CHANNEL - evaluates integer channel number parameter 
* Returns ID in A® aor returns error code to 4¢(A7) 


get_channel movea.w $112.w,a2 CA.GTINT — get integers 


jsr {a2) 

bne.s quick _ exit Return D@ error code 
move. W @lai,aé.1),d7 Pick up the channel # 
bmi.s bad_param It should be positive 
addgq-1 #2, $58(a6) Update BV.RIP 

malu #48,d07 Find offset in table 
add.1 48taé),d7 Add base te offset 
cmp.1 5S2(a6),d7 Check not beyend end 
bge.s chan_error Number is too high 
move.t @iad,d7-1),d7 ID for cutput window 
bmi.s chan_error Channel is closed 


chan_open moves. i d7, ae Set up Channel [ID 


rts 


* W SWAP H#ch% —~ exchanges red & green display bytes 


ber.s get channel Read channel number 
subg.w #1,d5 Check parameter count 
bne bed_param2 Oniy one is expected 
bsr.s find_window 

teal Swap _words,aS 


scan_lines lea.1l 128 (a4},a2 Foint at the next line 


move -w d@,d2 Duplicate width for loop 
jsr (add Call chesen line scanner 
movea.1 a2,a4 

dbra d4,scan_lines Process all the lines 
moveq 48,08 It worked! 

rts 


* This listing will be concluded in my August DIY Toolkit coltunn 


REMark Sinclair QL World HEX LOADER y 3 
REMark by Marcus Jeffery ®& Simon N Goodwin 


126 : 


CLS: RESTORE : READ space: start=RESPR( space} 
PRINT “Loading Hex..." : HEX_LOAD start 
INPUT “Save to file... ";f% 

SBYTES f$,start, byte : STOP 


198 : 


DEFine FuNetion DECIMAL( x} 
RETurn CODE(h${x})}-48-7*(h#{x)>"9") 
END DEFine DECIMAL 


DEFine PROCedure HEX_LOAD( start) 
byte = @ : checksum = @ 
REPeat load_hex_digits 
READ hs 
IF h¢="*" : EXIT load_hex digits 
IF LEN(hé} MOD 2 
PRINT’Odd number of hex digits in: "ih$ 
STOP 
END IF 
FOR b = 1 TO LEN(h$) STEP 2 
hb = DECIMAL{b) : 1b = DECIMAL(b+1) 
IF hb<@ OR hb>15 OR 1b<@ OR 1b>1i5 
PRINT"Illegal hex digit in: "“;ht : 
END IF 
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DIY TOOLKIT 


and about ten times faster than RECOL! 

As usual, the DIY project includes full 
source code in 68000 assembly language, 
plus a simple hex loader to generate the 
code for those who do not wish to use an 
assembler. The first part of the source 
code appears in Listing One. Next month 
| shall conclude the listing and explain 
exactly how it works. 

Listing Two loads the machine code 
from DATA statements, using the custom- 
ary DIY Toolkit hex loader. If you have 
typed this in before you can re-use the first 
part of your old file, substituting the new 
DATA statements from line 590 onwards. 

When you RUN listing two, it checks the 
DATA and stores code in memory. If all is 
well it asks you for a file name, and saves 
the DIY Windows code to your chosen 
device - for example, you might specify 
FLP1_WINDOWS_CODE. Later you can 
re-load the file and link the new commands 
intoSuperBasic,likethis: B=RESPR (676) 
LBYTESFLP1_WINDOWS_CODE,BCALL 
B. You may like to add these commands 
and the CODE file to your BOOT disk or 
cartridge, so DIY Windows are loaded 
whenever you re-boot the machine. 

If you do not wish to re-type the listing 
you may be glad to hear that complete 
source and binary code for this project is 
available on disk, with comprehensive 
documentation and example programs. 
The DIY Toolkit disk includes heap memory 
commands from QL World October 1989, 
example programs to save and reload 
window contents on any device, and a 
routine that will move any window around 
the screen, under cursor control. 

Ask for DIY Toolkit Volume W, which 
costs £7 on its own, or £3 if you order 
other DIY Toolkit volumes at the same 
time. Write to Richard Alexander at DIY 
Toolkit, Cwm Gwen Hall, Pencader, Dyfed, 
Cymru SA39 SHA, or call (0559) 384574. 
DIY Toolkit files are also available on 
microdrive tape; please send one blank 
cartridge for each volume required. 

The DIY Windows package includes 
seven new SuperBasic commands and 
functions, including one ‘alias’ to reduce 
problems caused by inconsistent English 
spelling. They all expect a mandatory 
channel number as first parameter; this 
should be the number of an open 
SuperBasic SCR or CON channel. 

The keywords report ‘channel not open’ 
if the channel is closed or has never been 
opened, and ‘bad parameter if the param- 
eter is not a display channel. A hash char- 
acteris notcompulsory but should preceed 
the channel number, for consistency with 
other QL commands. 

The function to save a window in memory 
is W_STORE. This takes a Basic channel 
number as parameter and returns the ad- 
dress of the memory where it is stored. An 
‘out of memory’ error is reported if there is 
insufficient memory to hold the display in 
the Common Heap. 

W_CRUNCH is the equivalent function 


430 
449 
450 
460 
4768 
480 
494 
Sao 
520 
538 
568 
578 
bBo 
598 
680 
618 
626 
638 
648 
656 
660 
678 
680 
690 
780 
718 
728 
736 
742 
758 
768 
778 
7BO 
79 
Bad 
810 
820 
838 
840 
858 
868 
B78 
882 
890 
990 
910 
820 
930 
948 
958 


checksum = 
byte = 
END FOR b 


READ check 
IF check <> checksum 


END IF 
END DEFine HEX_LOAD 


DATA 676 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


POKE start+byte, 16*hb+1b 
checksum + 16*hb + 1b 
byte + 1 


END REPeat load_hex_digits 


PRINT’ Checksum incorrect. Recheck data 


PRINT"Checksum correct, data entered at: 
REMark Space requirements for the machine 


REMark Machine code data 

“A3FAG2503478@110", “4ED2610@009E5543~ 
"§600015C3C31E802", “54ARGS58600C6100~ 
"POBAS 34366090148", "7 COBE1GSALGC3EAG" 
"7 AFF70184E414A80"., “666E22983087 2170" 
“42756661FFFC2QEE”, "@GES2ZD4100EG20C5" 
"38C430C655466BOA", “66O2Z528C47FAG1AG6" 
"§606447F AD 1 E66 100" 
“@81FD28169145344", "2AG17O192205E1A1" 
“690498 402AG1E240", “66F 2720630780114" 
"4E9@226EQO585D89", “2D4900582385R8G2" 
"338 4E8087802 7900", “4E75347801124E92~ 
“666A3E3 1 ESQ@06B5E", " 54AR@O58CEFCOOZ8 * 
"“DEAE@A3@BEARGH34" , "6CHO2ZE3678G06B4A" 
"2047 4E7561D45343", "66OGPB946 1HAATFA” 
"“@L5C45ECGS8O3 400", “4E93284A51CCFFF4" 
"7 0GG4E7561B45543", 

“dA466BEC528C6782", 

“ATFAALIBBOCCTAF1" , “6@BZ7TOSFASHBSF4ETH5~ 
"6188554366483C31", "E8@2610C4A466AD6" 
"B2BC47FADOR46DAA". “45FAOOSC7BFF7OG9" 
“4B 4344896663001", "28012849484102C0' 
“44466 702E2895C81". “5C81248148443004" 
“E248534048445344", "4E7570FC4E7570F1" 
“4K7 549EBOO19BBCC", “66F4518D6196FF2C0" 
“264D568D34780118", "4E9266R42ER31E806" 
"BBDCOBO7TIOBOESDE". “24473CZAGPGAG198" 
“2047 5888BA9866C2", "BBS5866BE54885546" 
“BBOCEBW2528C47 FA" , “ABT ZEOGAFF2G47 FA" 
"OO7 46G90FF LE7G28", "BOIS 7G@FFAZIB28 " 
"“PBIBE448AB8HO99D" , "2268O0832D2003228" 
"AO LAC2FCOBBOD3C1" 
“OO 1 CE4 49088 1AOAB" . "G24948413228001E" 
“7 0@OO4E7 510DC528C", “51 CAFFFA4E751686" 
“548C51CAFFFA4E75", "1914568C51CAFFFA" 


» "@O7A38012A91383C" 


“6674303 1E802613B8" 
“7 CFF47FAB1I@2Z69Dz * 


, "7286D2680018D268" 


960 
a) 


DATA 
DATA 
988 DATA 
99@ DATA 
1888 DATA 
1019 DATA 
1926 DATA 
1039 DATA 


“4E7518DC51CAFFFC", “4E7518D8528C51CA" 
"FFFA4E?7 538D851CA", “FFFC4E75121C1954" 
“FFFFISCIS1CAFFF6", "4E753@DC51CAFFFC" 
“AR75Q0O05FF 1EO657", '5F534B4F5700FR76" 


“@6575F53574F500@", “FE6CA6575F535741" 
“S@O@OFEB 207534554", "5F524544FRA40953" 
“45545F475245454E", "GAAGOIA2FD9I20757" 
“SFS3544F5245FD74", "O8575F4352554843" 


1446 DATA 


“4B000G0IO", "*", 64709 


to save a window in compressed form. The 
compression scheme is simple but effec- 
tive, halving the memory requirement. It 
takes advantage of the way that QL screen 
memory is organised. The Mode4 screen 
occupies 32K of memory, using 128 bytes 
per line of 512 pixels.Alternate bytes are 
used to hold red and green information for 
each group of eight pixels. Even bytes 
record the colour green, and odd bytes the 
colour red, so POKE 131072,255 plots a 
green line eight pixels wide at the top left 
corner of the display, assuming that area 
was black initially. 

if both red and green bits in adjacent 
bytes are set, the display is white, so POKE 
131073,15 turns the four rightmost pixels 
of the green line to white. 15 is 00001111 
in binary notation, allowing one bit per 
pixel. 

W_CRUNCH saves memory by storing 
only the odd or even bytes from a window. 


It takes two parameters and returns an 
address, like W_STORE. The first param- 
eter is the channel number, followed by the 
code of the colour to be stored: as usual, 
use 2 for Red or 4 for Green. Thus 
X=W_CRUNCH(#1,4) sets X to the ad- 
dress where the green bytes from window 
#1 are stored. 

Most QL windows contain text in two 
colours, such as black on green, or white 
onred, and this compression scheme works 
well in such cases. You only need to store 
the bytes that differ between ink and paper 
- green, to suitthese examples - and set the 
appropriate background before you restore 
the window. 

Greater compression may be possible 
by recording the ‘run length’ of sequences 
of particular colours, so blank lines can be 
encoded as the colour, and the number of 
pixels of that colour. Such an approach 
gives good results if the window contains 


areas of solid colour, but may be counter- 
productive if the image is complicated or 
uses stippled colours. 

The amount of shrinkage is hard to predict 
when sequence compression is used. In the 
worst cases the squashed image may need 
MORE memory than the un-compressed 
original, because of the extra bytes recording 
the length of short runs! Sequence compres- 
sion could be added to DIY Windows, but it 
would slow things down; in general 
W_CRUNCH is preferable because it gives 
fast, predictable savings. 

Stored information can be re-displayed 
at high speed with W_SHOW #1,X. This 
works with four-colour images recorded by 
W_STORE, or two-colour information gen- 
erated by W_CRUNCH. The memory at X 
remains allocated, so you can W_SHOW 
the window again once it has been stored. 

When you have several active windows 
you end up using quite a lot of memory to 
store their contents, so it is important to 
release that memory when it is no longer 
needed. DIY Windows makes this easy, 
especially if you have Toolkit 2 on your 
system. 

Each area of memory used by 
W_STORE and W_CRUNCH islinked into 
Toolkit 2’s list of temporary allocations, 
normally used by the ALCHP function. 
Such allocations are automatically re- 
leased when you type LOAD, LRUN or 
NEW to load a new program. The linkage 
means that these commands also de- 
allocate memory used by DIY Windows. 

You can also release the memory with 
the CLCHP command, or use RECHP to 
de-allocate a specific area. The first four 
bytes of the area are used to extend the 
ALCHP list, so the command to release 
window details at X is RECHP X+4. Toolkit 
2 reports a ‘bad parameter’ error if you 
supply an inappropriate address. 

Allis not lost if you do not own Toolkit 2, 
as window storage space can also be 
released with DEALLOCATE from Turbo 
Toolkit, or DIY Toolkit's own DISCARD 
command. These Toolkits do not auto- 
matically release memory when a new 
program is loaded. They expect you to 
specify the same address used with 
W_SHOW, such as DISCARD X or 
DEALLOCATE X. 

DISCARD checks that the parameter is 
valid, while DEALLOCATE just passes it 
on to Qdos and hopes for the best! The 
heap may be corrupted, causing the ma- 
chine to crash, if you get it wrong. 

The memory allocated by W_CRUNCH 
and W_STORE is owned by the task that 
calls the function. This means that it is 
automatically released when a compiled 
SuperBasic task terminates. You can astill 
use RECHP, DEALLOCATE or DISCARD 
to free space as you go along. 

Each window memory allocation has a 
12-byte header, followed by the informa- 
tion from the display memory. The first 
long word is the link used by Toolkit 2, 
followed by the total length of the area, 
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including the header. Next come two 
words: the height of the stored window in 
pixels, and a flag to signal W_CRUNCH 
compression, set to zero for W_STORE, 
and two or four otherwise. 

When a crunched image is restored 
with W_SHOW, only the odd or even 
bytes in the window are affected. Unless 
you are wearing a pair of 3D glasses, you 
should clear the other bytes with CLS or 
one of the other commands in DIY Win- 
dows, or you may end up with a discon- 
certing mixture of two displays, one red, 

| the other green! 

W_SHOW reports ‘bad parameter’ if the 
supplied address is odd or negative, and ‘out 
of range’ if the stored details will not fit the 
window. You can store an image and re- 
display it in another window, or move the 
original window to a new location before calling 
W_SHOW, but the size must be unchanged. 

All these routines adjust the window co- 
ordinates to fit a word boundary in video 
memory. This means that they store pixels 
from a column number evenly divisible by 
eight, to the next similar boundary at the 
right hand side of the window. Overlapping 
windows work best if they are a multiple of 
eight pixels wide and offset from the left 
margin by a similar multiple: 0, 8, 16 etc. 

This also ensures top speed for text 


output in the window, particularly if CSIZE 
1,0 is selected. The default SCR and 
CON windows are appropriately placed, 
as are the (F2) TV windows and the (F1) 
Monitor mode ones, if the border is ig- 
nored. You should take account of any 
border when calculating the leftmost col- 
umn; for instance, BORDER 2,2 adds 
four pixels of red border at the left and 
right edge of the window. 

The other DIY Windows commands al- 
low manipulation of the red and green 
bytes in display memory. W_SWAP ex- 
changes the red and green bytes in a 
window, so white text on black is un- 
changed, but red ink becomes green, and 
vice versa. There are two valid spellings 
of the word SWAP, so the command 
W_SWOP is also accepted and has the 
same effect. Only one parameter is 
needed - the channel number. 

SET_RED takes two parameters: a 
channel number, followed by a number 
indicating the operation to be performed 
on the red bytes in display memory. 
SET_RED #0,0 clears all the red bytes, 
turning a red image on white paper into 
black on green. SET_RED #0,1 has the 
opposite effect, setting all the red bytes. 

The third possibility copies from the 
green bytes to the red bytes along- 


side. SET_RED #0,-1 converts green 
on black text into white on black. Every 
green pixel has the corresponding red 
bit set, changing its colour from green 
to white.The same three options are 
available with the SET_GREEN com- 
mand, but this time it is the green bits 
that are affected. SET_GREEN #1,0 
clears the green bits, SET_GREEN 
#1,1 sets them, and SET_GREEN #1,- 
1 copies from red to green. 

The commands can process windows 
generated by other tasks. The easy 
way to do this is to set up a new win- 
dow with the same dimensions, from 
Basic, and use that channel number to 
save or re-colour the window when itis 
on the screen. Alternatively you could 
extract the channel ID from the Qdos 
table, as demonstrated in DIY Toolkit 
Volume Q, and tell Basic about it by 
updating the Channel Table with 
BPOKE_L, from DIY Toolkit Volume B. 

The August DIY Toolkit will con- 
clude listing one and discuss possible 
modifications to the code to make best 
use of Minerva, Mode8 and available 
memory. The article will also explain a 
simple way to add icon menus for QL 
tasks, extending DIY Windows in the 
direction of a full 'WIMP' system. 
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CAYOFTWARE FILE. 
PUDGE 


Pudge 

128K 

CGH Services, 
Cwm Gwen Hall, 
Pencader, Dyfed, 
Cymru SA39 9HA 
£12.50 

(disk or mdv) 


Program: 
Memory: 
Publisher: 


his is a brand new ar- 
cade-puzzle game 
written by Damon 
Chaplin, following his 

earlier successes, Speedfreaks 
and Assault & Battery (also now 
published by CGH. Services — 
see QL World December 1990). 
QL owners will be pleased to 
learn that this game (like the 
current versions of the other 
two) is not copy protected, and 
works 100% ona Minerva rom. 
The program is supplied with 
a short manual which explains 
alittle of the background of the 
game and how to play it. Ap- 
parently the original idea for 
this game was based upon a 
similar publicdomain game for 
the Atari ST, although I get the 
feeling that the scenario was 
very much Damon’sown work. 


Cartoon 


The idea behind the game 
would at firstseem simple, vou 
control a little cartoon-like 
character named Pudge, who 
is living on a planet which is 
doomed to destruction due to 
nuclear dumping. Pudge is an 
environmentalist who seems to 
have become trapped on this 
planet (the environmental is- 
sues on Earth must have 
seemed too easy for him), and 
wishes to save it. However, 
many things stand in his way: 
radioactive earth, nuclear can- 
isters, bombs and Naggons (the 
race of beings responsible for 
the dumping). Itis Pudge’s job 
to clear away the radioactive 
material and defeat the 
Naggons, thus ridding the 
planet ofits terrible fate (at least 
until a sequel is devised). 

Once loaded, you are pre- 
sented with the first of 32 
screens, each of which is made 
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Rich Mellor gets a Naggon in this alien-zapping game. 


up of various colourful sym- 
bols representing the different 
nasties that Pudge has to clear 
away, as well as various other 
items to help Pudge in his task, 
You merely have to guide 
Pudge around the screen by 
using the cursor keys (or a 
joystick) in order to achieve 
your various tasks. Collecting 
the radioactive earth seems 
casy-youmerely have tomove 
Pudge over this - but then 
nothing is ever that simple as 
you have to work quickly to 
avoid radiation poisoning. 
Luckily there are various anti- 
radiation pillsscattered around 
the screens that you can collect 
which will give you more time 
to spend achieving your tasks. 

Before youcan proceed to the 
next level, you have to destroy 
the radivactive canisters which 
litter the planet — by pushing 
them into one of the 

‘chompers’, which you will find 

on the screen. This is in fact 
fairly easy, since any number 
can be moved at a time, by 
merely placing Pudge behind 
the object and then moving 
Pudge in the required direc- 
tion with the object in front of 
him. Triangular parts of the 
walls allow you to turn the di- 
rection in which these canisters 
are being moved quite easily. 
The canisters should not be de- 
stroyed too early on all of the 
screens however, since they 
have another use which I shall 
come to later. 

Your time is however limited 
by the bombs which appear on 
most the screens. To destroy 
one of these bombs, you must 


surround them by four boul- 
ders (forming the shape of a 
cross). Boulders are quite heavy 
and Pudge can only move one 
at a time, so it is important to 
plan your moves carefully; itis 
all too easy to trap Pudge by 
moving, one boulder behind 
another and making it difficult 
for him to push it. Itis here that 
the first puzzle element comes 
into play, and although it can 
take some time to plan your 
strategy for moving a set of 
boulders, even young players 
should be able to come up with 
some sort of a solution early on 
in the game (luckily the game 
can ey ‘paused by pressing F2 
at any time to allow you to sit 
and have a long think — unfor- 
tunately the manual did not 
mention this). 


ooa32no 


On later levels, you will come 
across the N laggons who move 
around the screen in search of 
you — touching them means | 
instant death for Pudge, and so 
it becomes a major priority to 
destroy these. Naggons can be 
destroyed in a similar way to 

the bombs, ic by surrounding 
them with four radioactive 
canisters. Unfortunately the 
main problem here is not how 
to get the canisters to the 
Naggons, but rather how to set 
up a trap before finally placing 
the final canister. Again, quite 
a lot of thought will be needed 
here, especially on one of the 
screens where there are three 
Naggons to destroy and only 
four canisters (luckily there is 
no bomb to take care of on this 
screen). 


LAOog 
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SOFTWARE FILE 


colourful and should attract 
even the youngest games play- 
ers to the OL. What is more, | 
this program is useful for de- 
veloping strategic planning 
and should suit all types of QL 
users, from those who would 
rather have a game of chess to 
those who find great pleasure 
out of zapping aliens. 


access for games such as this. 

This game is extremely well 
written and is possibly the first 
environmentally friendly 
computer game for the OL and 
as such deserves success (al- 
though I wonder just how close 
to the Earth’s future this could 
be?). The screens are all well 
designed and wonderfully 


Overall the game is extremely 
addictive, but beware: on some 
levels there is only one way in 
which to complete the screen 
within the allowed time. One 
early mistake may prevent you 
from completing the given 
screen, as you are blocked in. 
But to help players out a little, 
each screen has a distinct pass- 
word, displayed at the top of 
the screen, and typing this in 
on the title screen allows you 
to start the game from that 
screen~so you need only prac- 
tice those screens that you are 
having difficulty with. 


is being pressed, still - I won- 
der if this is just because of the 
Jurgen Falkenberg interface, or 
if there is a fix?) 

In all there are 32 original 
screens tocomplete, although! 
have only managed to reach 
level 12, despite many many 
hours of play. The level of dif- 
ficulty is just right to keep you 
coming back to the game, and 
for those of you who are clever 
and lucky enough to complete 
all 32 screens, a screen design 
program is provided to enable 
you tocreate yourownscreens. 
This appears to be well written 
but does not check to see if a 
screen can actually be com- 
pleted, and so only those play- 
ers who have managed to com- 
plete all of the supplied levels 
should really try this one. 


Diagonal 


Those of you with full sized 
keyboards will be pleased to 
learn that the game does not 
entail any need for diagonal 
movement. If you are like me, 
you will have soon found out 
thata full sized keyboard tends 
to make it difficult to play 
games where you need to press 
two keys ata time. (When you 
are holding downtwokeysand 
release one, the QL does not 
tend to recognise that any key 


Slow down 


About the only problem of 
which I am aware is that the 
game runs too quickly on 
Miracle’s Gold Card, although | 
understand that there is now 
an extra command on the Gold 
Card which allows you to slow 
down the speed of keyboard 


CARE ELECTRONICS 


MAKES YOUR QL TRULY MULTI - TEXTS? Plus 4 @ £79.00 
TASKING 


FOUNTED 69. ats £15.00 
FOUNTED 68 oo sees @ £25,000 
246B PRINTER DRIVER ............ @ £15.00c 
Upgrade to Text 87 Plus 4 from ¥V3.00. Return 
master £39,00b 
Upgrade to Text 87 Plus 4 from all other ver- 
sions, Return Master £49.00b 
Send SAE for further info on above. 


MIRACLE SYSTEMS PRODUCTS 


OK Dise Interface (ine Tool Kit 1) @ £99.64b 
QL Centronics Printer interlace @ £29.6td 


aL WARE 


QLKayboard Membrane . «. @ £11.75d 
Care Eprom Cartridges each ........@ £6.11¢ 
ULA CHip 2X8301 ..... « @ £15.98 


READY MADE LEADS 


RGB QL TO PHONO £6,11¢ 
RGB 8-6 PIN............... £7.52 
AGB &-7 PIN HITACHI £7.52¢ 
RGB 8-7 PIN FERGUSON £7.52 
AGB & PIN TO SCAPT ,, £11. 75¢ 
AGB SPIN TO CM&8833 MK II ........... £11. 75c 
6WAY PCC TO 25WAY D £9,876 


Y TEBBY SOFTWARE (QUUMP) 


QTYP Type‘Spell Checker .........@ £30.55d 


OPAC Il Main menu windows adjus! automatically 
aize. Files ectory. vew. print, delete, backup 
A art, channels, 1hings exec, wake, 


Independent OL/Thor Users Group 


d momary 
SPECIAL OFFER ONLY £39,48b 
Upgrade QRAM to QPAC II return master 
@29,61b 
PLEASE SEND SAE FOR A COPY 
OF THE QPAC Il REVIEW 


QPOWER REGULATOR 


Switch mode power supply, QL runs cool 

stops lock ups (due to voltage drop). Helps 

filtar noise out. Simple to fit (no soldenng) 
rab blenspachen cnunareraidyomne cd EDO 


Worldwide Membership is by subscription 
only, and offers the following benefits: 
Monthly Newsletter — up to 40 pages 

Massive Software Library — mostly FREE! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 

Advice on Software & Hardware problems 
Discounts from most major suppliers 
Subscription just £14 for UK members 

Overseas subscription £17 


QL SUPERTOOL KIT Il by Tony Tebby 


Over 118 Commands: Full Screen Editar, Key 
Detine Print Using, Last Line Recall, Altkey, 
Job Control, File Handling, Default Directories, 
Extended Network 

16k Eprom Cartridge Version ....,,. @£23.50d 
Configurable Version of Microdrive ........... 


ZITASOFT SOFTWARE by Steve Jones 


Barclaycard: Visa: Access: Mastercard 


LOCKSMITHE copies M/DRIVE - M/DRIVE 
Soi saad npink dpe vas iat ic eikedugunsteshestiieiaack Wits RoRc I 
4MATTER +LOCKSMITHE copies M/DAIVE 
- DISC ,,, : Ii dies gaistins. AO ER OUIES 
SIDEWINDER - High resolution printer driver 
prints full screens or parts of screens from 
postage stamp size to large banners. Prints 


QPAC 1-Desk top accessories, calendar, 
alarm. calculator, typewriter, digital clock 
SYSMON sinc wennn nsec, O22 SEH 


CARE ELECTRONICS 
DEPT QL, 15 HOLLAND GDNS 


* Now in our NINTH successful year * 


Further details from the Membership Secretary 


sideways, invert, scala, mirror, text insertion 
SIDEWINDER PLUS - ifor expanded QL’s} 
includes all ihe features of above, PLUS 
multiple label printing, desktop publishing 
files and printer drivers for The LC 10 JXad 24 
pin and colour printers (Please state 3.5" disc 
or MiDrive} .......2:.-4:6.u-ce ss MEZSO7G 
Upgrade to Sidewinder Plus ,....... @£8 46c 


4 HOW TO ORDER By Posi, Enclose your Cheque’PO made payable to CARE 


Fi 
Electronics or use ACCESSVISA, Allow 7 days for delivery 


GARSTON, WATFORD, 
HERTS, WD2 6JN. 
Tel: 0923-894064 
Fax: 0923-672102 


Please add cariage 
a=£6.11 b=£43.76 c=ne charge 


Bill Newell 
213 Manor Road 
Benfleet 
Essex. SS7 4JD 
Tel (0268) 754 407 


d=£2.35 
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QUICKDISK+ DISKTOOL 


INFORMATION 
Program: 

Quick Disk+Disk Tool 
£19.95 plus 5% to 
Europe, 10% to rest of 

world, 

Supplier: Digital Precision 
Ltd 
Chingford, London E4 
OSE. 
Tel, O81 527 5493 


Price: 


Bryan Davies 
tries two up- 
dated disk- 
handling 
facilities which 
started life 
with Ultrasoft. 


hese two utilities are 
part of a set which 
originated from Mar- 
tin Berndt of 
UltraSoft, in Germany, and is 
now part of the Digital Preci- 
sion collection. DP have gone 
through these programs, mak- 
ing changes where thought 
necessary, and re-writing the 
instructions. Both programs 
work under the QJump Pointer 
Environment, which is supplied 
on the disk. Users who already 
have QOPac installed should not 
need to load the PE files, al- 
though they may find that the 
ones supplied are later versions 
than their own, 
The programs are supplied 


Di skrime: 


UICKDISK + 


DISKTOOL 


only on disk. A 4-page instruc- 
tion leaflet is supplied; this is 
adequate to describe the pro- 
gram functions, but there is lit- 
tle advice on using the Pointer 
Environment, on the basis that 
it ‘requires little documenta- 
tion’, which is questionable. 


Load check 


As is usual with DP prod- 
ucts, copy-protection is not 
employed and a working copy 
can bemade by using the COPY 
or WCOPY command. Loading 
is via a boot file, and a check is 
made to see whether or not the 
PE has already been loaded, to 
avoid trying to load it twice. 
Both programs are automati- 
cally FXECed from the boot, 
but the latter can be altered so 
that one or bothare not EXECed 
straight away. They can be 
started by TaskMaster, QRam, 
QPac, etc. DiskTool can be de- 
fined as a Hotkey, if you use 
Hotkey IT, or it can be put onto 
a 16 KB eprom if you have (ac- 
cess to) an eprom blower (two 
files are supplied for these pur- 


NONAME 


Format 


sun RAMA 


duickDiisk v1.01 
ticks 


poses). The standard QJump 
CONFIG routine is supplied, 
for configuring the programs. 
You may be able to incorporate 
the programs into an existing, 
non-PE boot, but some experi- 
mentation is likely to be re- 
quired, as there might be com- 
patibility problems. 


Don't touch 


When the instructions get 
down to describing what the 
programs do, they hit on what 
may be a sore point with users 
(suchas myself) who have one- 
third-height 3.5 in Mitsubishi 
disk drives. QuickDisk ‘speed- 
optimises disk organisation’ 
and, to do that efficiently, it 
should be configured for the 
specific drive controller chip 
installed in your disk interface. 
The chances are that most us- 
ers do not have this informa- 
tion to hand, and you are ad- 
vised to take the cover off the 
interface and check to see what 
is written on the chips. What 
really ought to be said also is: 
don’t touch the chips. Liter- 
ally. The drive controller chips 
can be damaged simply by be- 
ing touched with the small 
amount of static electricty 
passed by one finger, even if 
you can’t feel it. 

What you are looking for is 
the designation WD1770, or 
WD1772, on one of the larger 
chips. Early interfaces of most 
makes will usually have the 
WD1770. The WD1772 has 
been fitted to Trump Cards, 
and that is the best guess if you 
don’t feel inclined to risk tak- 
ing the cover off your TC. The 
WD1772 is nominally ‘better’; 


unfortunately, it does a poor 
job of handling the aforemen- 
tioned Mitsubishi drives. For 
thisreason, some Trump Cards 
will have been retrofitted with 
the WD1770. Uf you have a 
Trump Card and these drives, 
and the latter sound as though 
they are being shaken to bits, 
you may need a 1770!) The de- 
fault setting of QuickDisk is 
for the 1772; fortunately, it 
should work (albeit notat peak 
speed) even if set wrong, It 
seemed to work satisfactorily 
with either setting on the re- 
view system. The warning is 
given to back up important files 
before proceeding with use of 
QuickDisk, just in case some- 
thing goes wrong. Later in the 
instructions, it is pointed out 
thatrecovery of files ona dam- 
aged disk may be more diffi- 
cult (with Media Manager SE, 
for instance) once the disk has 
been treated by QuickDisk. 


Quick files 


The action of QuickDisk is to 
‘convert’ formatted disks in 
such a way that files copied 
onto them are accessible more 
quickly. 

When the boot is run, 
DiskCopy and QuickDisk 
come upintheirown windows, 
the latter having the cursor. Be 
careful with the ESC key as it 
has the usual, final effect on 
programs running under the 
PE - they get killed. Use CTRL- 
C to switch to other programs 
if you want the two utilities to 
stay alive. QuickDisk offers the 
simple choice of pressing 1, 2 
or ESC. The 1 or 2 key initiates 
conversion of the disk in flp1 
or flp2_, the process taking a 
few secohds. The disk should 
be both formatted and empty 
before being treated. A DIR 
subsequently will show no 
change. If the FORMAT com- 
mand is used on the disk, the 
latter will revert to its normal, 
unconverted state. 

That’s all there is to 
QuickDisk, so the question is 
‘what good has it done me?’ 
The first thing to be assured of 
is that it has done no harm; 
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normal operations, such as 
WCOPY, involving converted 
disks, are carried out the same 
as normal. There is no evident 
difference. Using WCOPY to 
copy a mixed bag of 52 files 
(occupying 717 KB when cop- 
ied) from win]_ to flp7 , until 
the ‘drive full’ message ap- 
peared on the screen, took 4 
minutes 58 seconds with a nor- 
mal, unconverted disk. A DIR 
(three-piece) of flp2_ then took 
10 seconds. A WCOPY of all 
files from flp2_toram1_took5 
minutes 58 seconds (‘drive 
full’). Deleting all files on flp2_ 
with WDEL took 33 seconds. 
The same operations after the 
disk had been treated by 
QuickDisk took 3 minutes 10 
seconds, 5 seconds, 5 minutes 
18 seconds and 25 seconds. So, 
housekeeping operations are 
performed appreciably faster. 
As a check of typical word- 
processing operations,a 312 KB 
text file was loaded into Per- 
fection; it took 2 minutes 35 
seconds from a normal disk, 2 
minutes 23 seconds from a 
converted disk. Saving the 
same file took 57 and 40 sec- 
onds, respectively. Likewise, 
appreciably faster. 

You couldn’t wish for any- 
thing much simpler than 
QuickDisk, and DiskTool is not 
complicated either. The pro- 
gram window offers its serv- 
ices as ‘copier / formatter / pro- 
tector’, and a sub-window dis- 
plays icons for an flp1 to flp1 
copy, flp1 to flp2, and flp2 to 
flpl. A further sub-window 
displays the options single- or 
double-sided, 80- or 84-track, 
disk name, drive 1 or 2. Copy 
and Format each have their 
own sub-window, and Pass- 
word and its three options, (sic; 
see lower down), Protect and 
Unprotect, are together in an- 
other. 


Cursor 


As usual with the Pointer 
Environment, the cursor 
changes appearance as it is 
moved around the screen, 
starting off as a floppy disk 
symbol with OL written on it. 
Cursor navigation by mouse 
(Qimi-type) is much faster than 
by cursor keys, but this pro- 
gram doesn't place great de- 
mands on the navigator and is 
not one where a mouse is vir- 
tually essential. Movement of 
the cursor into the area of an 
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option causes a highlight box 
to appear around the option 
name. A list of keys is given for 
direct activation of options; 
several of them are mnemonic 
and easy to memorise (eg N for 
Disk Name, 1 for drive 1). 
Standard for PE operations, but 
likely to be confusing for non- 
devotees, is that options are 
generally selected by pressing 
Space rather than Enter, but 
some options - such as Copy 
and Format - require Enter 
rather than Space. 

Having pressed Space on all 
the appropriate options to do 
an 80-track, double-sided for- 
mat, it was a bit disconcerting 
to find 84-track highlighted 
during the operation, and then 
have a box pop up after some 
seconds witha couple of excla- 
mation icons, and the messages 
‘error’ and ‘format failed’. The 
change of tracks actually oc- 
curred because of my hitting 
Space when 80-track was al- 
ready selected; this automati- 
cally changed the setting to 84- 
track - something doing my 
thinking forme and coming up 
with the wrong answer. The 
instructions tell you to ignore 
the error messages! Returning 
to SuperBasic and doing a DIR 
confirmed that the disk had 
been formatted, and to 1512 
sectors, as stated. That is, 72 
sectors (36 KB) more than 
standard. Usable sectors are 
1506, against the standard 1434. 
The instructions don’t explain 
why the program bothers to 
display the misleading mes- 
sages. 


Difficult 


As with QuickDisk, you are 
warned that the sorting-out of 
a corrupted 84-track disk may 
prove more difficult than for 
an 80-track one. 

Having gained the extra 
space, it makes sense to go one 
step further and apply the 
QuickDisk conversion to 84- 
track disks. It is stated that there 
is no penalty from either op- 
eration, apart from that men- 
tioned about recovery from 
disk problems. The ‘treated’ 
disks should be read from, and 
written to, by SBand programs, 
without difficulty, and in other 
drives too; there is no need for 
the PE or either of these pro- 
grams to be present subse- 
quently. 

One operation produced 


undesirable results - format- 
ting a disk 84-track, single- 
sided. Although the format 
seemed to be performed al- 
right, a subsequent WCOPY to 
the disk resulted in some 
pained noises from the drive 
and astring of ‘bad or changed 
medium’ messages which 
could be stopped only by re- 
setting. Disk and drive seemed 
in order afterwards, though. 
Bearing in mind the points 
made in the instructions about 
disk controller chips, the 
standard QJump CONFIG 
routine (supplied on the disk) 
was used to change the default 
chipsetting for QuickDisk from 
WD1772 to WD1770, as the lat- 
ter type is installed in my 
Trump Card (because of the 
aforementioned problem). This 
change doesn’t apply to 
DiskTool. The WCOPY opera- 
tion still gave the same result, 
and QuickDisk hadn’t been 
used this time, so it appears 
best - on my system at least - to 
stay away from thesingle-sided 
format. There was no problem 
witha WCOPY after a double- 
sided 84-track format, and 
conversion. 


Disk name 


The Copy icons are simply a 
convenience - there is nothing 
special about the copying 
process. An advance on 
SuperBasic is provided by the 
Disk Name option, which can 
be used at any time, not just 
when a format is done as is the 
case with SB. A small feature, 
but one which many users must 
have wished for many times. 

The Password function could 
be useful if you use your QL in 
an office environment where 
there are confidential files 
which some people should not 
have access to. The protection 
works on both program and 
data files; itis necessary to have 
both a copy of DiskTool and 
the password to be able to ac- 
cess protected files. Attempts 
at access without these things 
result in ‘bad or changed me- 
dium’ messages, or ‘0/0 sec- 
tors’ when DIR or STAT com- 
mands are used. Copying, 
loading or viewing operations 
just fail completely. 

The use of a password is not 
without pitfalls for the unwary 
and you are warned that at- 
tempting to unprotect a pro- 
tected disk and giving the 


wrong password in the proc- 
ess will make everything on 
the disk permanently inacces- 
sible, after only one attempt. A 
rather drastic action, since it is 
quite possible an ‘authorised’ 
user would make a slight slip 
when entering the password. 
Backups are again the order of 
the day. 


Password 


The instructions could have 
been a little clearer for such a 
sensitive operation; the box 
shown with — in it in the 
illustration is for entering the 
password, and you have to 
place the cursor on it first, then 
press Space. This changes the 
box contents to ????, if no pass 
word has been entered. Sur- 
prisingly,, this action displays 
the password if you have en- 
tered one previously during the 
current session, so don’t leave 
the DiskTool window on the 
screen for anyone else to play 
with. It might have been more 
self-explanatory to have this 
box named Password. The 
password (up to four charac- 
ters, case-dependent) is typed 
in and Enter pressed, You then 
select the Protect box and press 
Space. 

As claimed, the contents ofa 
Protected disk became inac- 
cessible to all normal opera- 
tions. When the DiskTool win- 
dow was again called up to 
Unprotect the disk, the pass- 
word was still displayed in it, 
and it appears that anyone ca- 
pable of using CTRL-C could 
discover the last password 
used at any time until either 
DiskTool has been killed or the 
QL reset. Both the Protect and 
Unprotect operations are ac- 
companied by a message box 
saying ‘disk change’, even 
though there has been no 
change of disk; you have to 
press Space with the cursor on 
an OK box to complete the op- 
eration. 

The two programs are easy to 
use and provide operational bo- 
nuses which are well worth hav- 
ing. Use of them should be ac- 
companied by extra caution in 
the matter of making backups. 
The password function also re- 
quires care in use. The price is 
reasonable and both QuickDisk 
and DiskTool should make use- 
ful additions to a utilities col- 
lection, especially for Pointer 
Environment users. 
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nthe 20th March. a minibus full of 
Quanta members set out for the 
International QL Meeting in north- 
west Germany. The venue was a 
school hall in Miinster-Roxel. ‘his was the 
latest ina series of outings organised by Quanta, 
the QL user group, The International QI. 
Meeting was organised by Franz Hermann of 
the Sinclair QL User Club eV of Germany. 

Several German traders attended the 
meeting, including Jochen Merz, Albin Hessler 
Software and Jurgen Falkenburg Computer 
Teknik. Jochen Merz demonstrated and sold 
his well-known products for both the QL and 
the Atari ST, The ST-QL emulator card is well 
known and widely used in Germany - it offers 
a very high degree of compatibility with QL. 
software. As a software supplier, he ts widely 
respected for his range of Pointer Environment 
software, including several of Tony Tebby’s 
products, 

Albin Hessler showed his Easv-Prr ff 
system for Pointer Environment programmers, 
This simplifies the writing of menus and so on. 
removing the need for the more complex pro- 
gramming involyed when using the Qptr pack- 
wre by itself. Albin also demonstrated a PC- 
type serial mouse connected to a QL via the 
QL’s SER ports, With the serial mouse driver 
software, it cnabled the mouse to drive the 
Pointer Environment as though it was a Qimi 
mouse (the original QJump mouse system for 
the QL). This will be available in Britain, 
eventually, through EEC Ltd., [ was told. 

Jurgen Falkenburg produces a range 
of hardware add-ons for the QL, including a 
PC keyboard interface, bus expander, EAN 
barcode reader. QL picture scanner and an A/ 
D converter. His products are not that well 
known outside of Germany. which ts a pity 
since he has obyiously put a lot of work into 
them. Traders and user groups from other 
countries were present too, including Progs of 
Belgium, Ergon Development from Italy and 
Cowo Electronic from Switzerland. | met QL 
users from places as far apart as France, the 
Netherlands, and Scandinavia. 

While exploring the various stands, I 
came across two very interesting pieces of 
soltware. We all know that Sinclair Research 
produced other computers before the QL, but 
did you know that the QL can run ZX81 and 
Spectrum software? [ saw the ZX81 emulator 
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while at the show. It 1s a software package 
written by Carlo Delhez, a QL user in The 
Netherlands (a demonstration version is ayail- 
able from Qubbesoft in Britain). He has also 
written a Spectrum emulator and I was told that 
there are at least two other such emulators 
being developed. 


Language proved to be no barrier at the 
meeting - people spoke whichever language 
they could best communicate in! The QL proved 
itself to be an international medium of commu- 
nication. One amusing experience occurred 
when two users from different countries tried 
to speak English to cach other, but had to grab 


etc fake 
WHAT? ONLY £8 FOR JAN JONES? DONE! 


QL INTERNATIONAL 


the nearest “Englishman” to translate one Eng- 
lish accent into another, except that, by choos- 
ing me, they got one with a Welsh accent to 
confuse them even more! 

Most of the British traders who adver- 
tise in QL World were present (notable ex- 
ceptions being Digital Precision and CGH 
Services), EEC, Quanta, TF Services, Miracle 
Systems and Qubbesoft were among those 
present. Miracle Systems apparently did a 
roaring trade in Gold Cards, which are now 
much reduced in price at £225, compared with 
nearly £400 when first launched. 

Several talks, lectures and demonstra- 
tions took place. Subjects included Minerva, 
bulletinboards, Fleet Tactical Command 
and the future of Qdos and the QL. Sadly, I 
missed most of these because I did not know 
what was on at which time, a point to improve 
on for next time, maybe. The whole show was 
conducted ina friendly, informal manner which 
brought QL users from several countries to- 
gether for an enjoyable day out in a sea of 
Sinclair QLs and ST-QLs. Some no doubt 
departed poorer, having spent their money on 
bits and pieces for the QL, while others shared 
knowledge and made new friends. 

After a very enjoyable day at the Inter- 
national QL Meeting, we retired to a local 
hotel for the night, before departing for a very 
wet journey back to Britain the following 
morning, I, for one, am certainly looking for- 
ward to the next such outing. 


& i 


(FRANCE —_‘ NORWAY ENGLAND 


QL Contact France. Contact: Jean- 
Louis Dianoux, 38-40 Rue 


"BELG 75018 Paris, France, 


Club Sinclair BruQsL (Belgium) 
Contact: Jaques Tasset, Aarlenstraat 
104, 1040 Brussels, Belgium 


International QL Conference bul- 
letin board system (Swedish and 
English), Contact: Michael 
Cronsten, System Operator, Jamten- 
TCL, S Soere 1073, 83030 Lit, Swe- 
den. 


New England Sinclair QL User 
Group (USA) Membership Secre- 
tary: Sherm Waterman, PO Box 
8763, Boston, MA 021148763, USA. 
Magazine: NESOLUG News, Editor: 
Peter Hale, 195 Central Ave., Chel- 
sea, MA 02150, USA. 
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Norwegian All Sinclair Association 
(NASA) Contact: PMonstad, NASA, 
IN-5580 Oelen, Norway. Magazine: 
Sinclair Magazine. 


ITALY 


Qitaly Club Chairman: Roberto 
Orlandi, Via Brescia 26, 25039 
Travagliato (BS), Italy. Tel. (local) +39 
30 6863311. Magazine: Qitaly Maga- 
zine. Editor: Dr Eros Forenzi, Via 
Valeriana 44, 23010 Berbenno (SO), 
Italy. Tel. (local) +39 342 492323. 


TURKEY 


QL Olub (Turkey). Contact: Bulent 
Artuz, Prof. Sitest B/1 D/5, Etiler 
806(N), Istanbul, Turkey. 


AUSTRIA 


DER Computer Club. Contact: Peter 
Postl, Stegerg 5, 1150 Wien, Austria 


Quanta (UK) Membership Secre- 
tary, Bill Newell,213 Manor Road, 
Benfleet, Essex SS7 4J]D. Maga- 
zine: Quanta. Editor: Bill Fuggle, 
20 Widnes Avenue, Selly Oak, 
Birmingham B29 6QE. 

Bristol sub-group: Roy Brereton, 
94 Teignmouth Rd, Clevedon, 
Avon BS21 6DR. 

Essex sub-group: Dave Walker, 22 
Kempton’s Mead, Potters Bar, 
Herts EM6 3HZ. 
Londonsub-group: Jeremy Davis, 
6 Elmcroft Crescent, Harrow, 
Middlesex HA2 6HN. 

Northern Ireland: Billy 
Turkington, Fairyhill, Rostrevor, 
Newry, Co., Down BT34 3BB. 
Mid-Southern sub-group: Geoff 
Fish, 44 Billing Avenue, Wokingham, 
Berks RG11 4JE. 

QL User Group (West Midlands): 
Mike Bedford-White, 16 Westfield 
Road, Acocks Green, Birmingham 
B27 7TL. 

QL MUG: 3 Barnard Road, 
Birkenhead, L43 1TT. 


Scottish OL Users Group Contact: 
Alan Pemberton, 65 Lingerwood Rd., 
Newtongrange, Midlothian EH22 
400. Newsletter. 


HOLLAND 


Sin_QL_Air (Netherlands) Mem- 
bership Secretary: Bob Visser, 
Snelrewaard 6,2904SN Capelle,a/ 
d Ijssel, Netherlands. Magazine: 
Quasar. Editor: C H M Biemans, 
Elzenstraat 5, 5461 CL Veghel, 
Netherlands. 


GERMANY 


Sinclair QL User Club eV (Ger- 
many) Foreign Contact: Franz 
Herrmann, Talstrasse 21, d-W5460 
Ochenfels, West Germany. Maga- 
zine: Quasar. 


os Cruz, Aca- 


Oliper Editor: Mar 
cias 44, (Monteclaro), E-28023 
Pozuelo de Alarcon, Spain. Maga- 
zine: Oliper. 


In Part 8, Alan 
Bridewell applies 
number inputting to 
the control of screen 
drawing parameters. 


his series has been building up a 

library of small chunks of Assem 

bler Language code. Each chunk 

will do a recognisable job withina 
program, and be fully annotated, so that it 
will be clear exactly how to join it to other 
chunks of code to make a program, and 
what changes may be necessary to make 
the chunks fit together. 

In the last article, we looked at inputting 
numbers into a program in such a way that 
it avoided inputting them directly from the 
keyboard. This would then overcome the 
problems of trying to get error-free numeric 
input. This month we shall look at how to 
apply these ideas in real programming 
situations. 

The classic situation is of drawing de- 
signs on the screen, the way CAD pro- 
grams do. The example we shall take is of 
drawing ellipses on the screen. However, if 
you follow through the program, and un- 
derstand its principles, you should be able 
to see how to apply the same basic ideas 
to other drawing problems, for instance the 
“rubber-band” method of drawing lines. 
The point is this. The program user does 
notwantto have to input parameters directly 
from the keyboard to draw the required 
shape. For a start, the user may not have 
the remotest idea what parameters are 
required, never mind about the actual val- 
ues. Also, the user may only have a rough 
idea of what actual shape is wanted, until 
the shape can be seen on the screen. What 
the user needs is a routine which will, first 
of all, draw an ellipse somewhere on the 
screen. Then, by the use of the cursor 
keys, the ellipse can be moved around the 
screen, stretched, shrunk, and rotated, until 
eventually it is in the desired position, size, 
shape and orientation. It can then be left 
there ready for the next bit of the design to 
be added. 

Clearly, what our program must be able 
to do is to use the cursor keys to alter the 
floating point parameters for the ellipse, 
rub out the old ellipse, and then redraw the 


Systematic 


Machine Code 


Programming 


Listing 1 


‘COPY’ 
SA tht akeleted Adelie otal hethaltah taheheteiahehehaihalahahehel 
THIS WILL COPY A BLOCK OF LONG WORD 
THE LOOP COUNTER SHOULD BE ONE LESS 


‘8 ae ay ee ae oe 


. COPY LEA.L SOURCE, 
LEA.L DEST ,AZ 
MOVEG #4,D1 

LOOP MOVE.L (ALr+, ¢ 
DBRA Di ,LOUP 
BRA NEXTBIT 


i 
BFE PEE HE RE PE FE HEE FE SE EH IE HEE EEE HE EE EE: 


ME FE PE ETE IE FE HE EE SEE HE DE EE HE BE HE HE THE EE FE IE AE HE EE IEE FE HEE SE FE HA Hi a YH 


FEE IIE 
S FROM ONE ADDRESS TO ANOTHER 
THAN THE NUMBER OF LONG WORDS. 


@1 ; SOURCE ADDRESS IN Al 
3 DESTINATION ADDRESS IN AZ 
3 LOOP COUNTER 
&2)+ 3; MOVE LONG WORDS 
3 DECREMENT AND LOOP 
7 BRANCH TO NEXT BIT 


EEE EEE EEE EEE EEE EEE EE 


ellipse according to the new parameters. 
However this does introduce a few compli- 
cations. Rubbing out old ellipses is simply 
achieved by putting the window in XOR 
drawing mode. This means that the drawn 
colour is XORed with the background. If 
the background consists of the drawn el- 
lipse, it will simply be rubbed out. A further 
problem is that each time the old ellipse is 
to be kept, and a new ellipse drawn, the 
ellipse parameters need to be restored to 
their default values. This means keeping a 
second set of default parameters to copy 
into the ellipse parameter table each time 
we wish to start drawing another ellipse. 
Listing One is a short ‘COPY’ routine, 
which will copy any block of long words 
from one address to another. SOURCE 
and DEST are the start addresses of the 
source block and the destination block. 


The loop counter must be set to one less 
than the number of long words to be cop- 
ied. Blocks as large as 64K can be copied 
this way, if the MOVEQ is changed to a 
MOVE.W command, but it is a bit slow for 
large blocks. However it's ideal for pa- 
rameter tables. 

The program, then, must do the following. 

1. First, start the job, open the window, 
enable the cursor, and put in the XOR 
mode. 

2. Copy the default parameter table to 
the ellipse parameter table and draw the 
default ellipse. 

3. The program must then wait for a key 
press. 

4. It must next analyse the key press to 
find out if it is to leave the routine with the 
current ellipse left in place, or draw another 
ellipse. 


Listing 2 
5 FERRITE FEIT IIE FE IIE IE ICI RIE TEI EEE 
: "MAIN’ 
| 3 
| ~MAIN JSR FBYTE 
LEA.L BYTE,A1 
CMPI.B #10, (Al 
BEG CLOSE 
LEA.L BYTE,A1 
CMPI.B #32, (Al 
BEQ.S COPY 
JSR ELLIPSE 
Isr TEST 
- FIRST JSR ELLIPSE 
BRA MAIN 


5 
3 REECE EEE EEE EEE EE EREEEERER EER EERE 


5 teil atedeetatatidMaiaiadiaieiaiaisRaiaiadebidadeietatadadebetahakabel 


GET KEY PRESS 

BYTE ADDRESS IN Al 

IS BYTE = 10 <ENTER>? 
IF SQ, CLOSE 

BYTE ADDRESS IN Al 

IS BYTE = 32 <SPACE> 
IF SO, NEW ANOTHER ELLIPSE 
TO REMOVE OLD ELLIPSE 
TEST FOR KEY PRESS 
TO DRAW NEW ELLIPSE 
AND START AGAIN 


} 


) 


Pe en 


EEE ERE EERE EERE EEE REE EE REE ERE EE 
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& Ifthe key press indicates more adjust- 
ments to the current ellipse, it must rub out 
the old ellipse, ready to draw the new one. 
This involves drawing the ellipse in XOR 
mode over the old ellipse. 

6. It must then analyse the key press to 
determine what parameter change is re- 
quired, and make the required change. 

7. Next, it must draw the new ellipse. 

8. Finally, it must loop back to wait for 
another key press. 

9. If, at any stage, the key press indi- 
cates leave the ellipse and start another, 
the program-must loop back to step 2. If we 
are to leave the routine, the program must 
close the window, and kill the job. 

Clearly, the first and last steps are only 
needed to make this sample routine into a self 
contained EXECable program. Normally, it 
would be a small part of a larger program. In 
this case, presumably, the program would 
already be started with the window open, the 
cursor enabled, and in XOR mode. So when 
the main program entered this routine, the first 
step would be to copy the default parameter 
table and draw the default ellipse. When all the 
required ellipses were in place, the last step 
would be to go back to the main program, and 
would not close the window or kill the job. 


Three Stages 


The previous program examples in this 
series have been ones where the steps have 
followed each other in a simple linear manner. 
Also, where there have been repetitions of 
steps, they have been short ones. This pro- 
gram is more complex, and requires a more 
subtle program technique. For a start, there 
are three situations involving the ‘ELLIPSE’ 
routine to draw an ellipse. There is drawing the 
initial default ellipse, drawing the background 
colour ellipse to rub out the old one, and 
drawing the new ellipse. ‘ELLIPSE’ is rather a 
long routine, and to repeat it three times will 
make the program rather long. Also the three 
situations do not easily make for a linear 
approach. 

The solution is to put a bit more ‘struc- 
ture’ into the program. This is done by 
making various chunks of code into sub- 
routines, which can be called in a variety of 
ways from a ‘MAIN’ routine. Making a chunk 
of code into a subroutine simply means 
making it end with an ‘RTS’ command to 
return to the calling code, rather than the 
usual ‘BRA NEXTBIT’ type of ending. This 
allows much more flexibility, and will cer- 
tainly make the program more concise. It 
does, however, mean that a separate 
‘MAIN’ routine has to be written specifically 
for this program, and it cannot really be 
incorporated into the library of routines for 
general use. The writing of a ‘MAIN’ routine 
obviously requires more programming skill 
than simply putting together chunks of code, 
which we have been doing so far in this 
series. Having said that, | must add that 
writing ‘MAIN’ routines is not as difficult as 
writing many of the chunks which make up 
the library. 
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SYSTEM MACHINE CODE 


Listing 3 


SHEE EEEH HRA ERER ERR EHER ERE EHR HEHEHE REE HERR ERERER HER HE ee 
¥ *JOBSTART* 
i 
} BRANCH TO START OF CODE 
} (THIS IS STANDARD FORMAT FOR 
$4AFB } START OF @ JOB) 
—--- ALTER CHARACTI ME --—- 
s 8 + CHARACTER COUNT OF JOB NAME 
"ELLIPSES' 3 NOME OF JOB 


BTART 
9 


. 

| Tis dialiahesteatiadatiaatiatiateatiahsdehahatahaiatahsliahahehehatehshaiahaisiahehaiahahehsiuhalsahsiahiaitatadtudetanetandandencnc ttc 
' “CONSOLE * 
' 
i 


---- ALTER LABEL TO .START ---- 
.« START - ; PBLOCK ADDRESS IN Al 
5 UT_CON VECTOR IN Az 
' 


3 
} SAVE THE CHANNEL ID WHICH UT_CON ROUTINE LEAVES IN AO. 
i 

MOVE.L A0,-4A7) } SAVE CONSOLE ID ON STACK 
} * NOTE * THIS CHANGES A7 
} BY —4, READY FOR NEXT 
3} STACK ENTRY. 


3 
CLEAR THE WINDOW 


#SFFFF,DS INFINITE TIMEQUT 
##20,D0 #SD_CLEAR IN Do 
#3 
# ---- ALTER BRANCH ADDRESS TO CURSOR ---~ 
BRA.S CURSOR SKIP BLOCK 
' 
} ---- ALTER BLOCK TO REQUIRED WINDOW —-—— 
. PBLOCK DC.B 
DC.B 


} GREEN BORDER 
3 2 PIXELS WIDE 
DC.B 3 BLACK PAPER/STRIP 
DC.B 3 WHITE INK 
Dt.W 3 WIDTH 
DC. W 3} HEIGHT 
DC.W 3 X POSITION 
DC. W 3 Y¥ POSITION 


: 
| i sAahalhsdahahetahiehathetehahahiiehstahiteteiahshaheiahdehihehdahideheiihahoiehiddatahtehstekoiahaiehstetehehtelehodutehetekatehsteke.. 
: "CURSOR’ 


5 

} ---- DELETE LINES TO ENTER LD IN AO AND TIMEOUT IN D3 -~-~ 

. CURSOR MOVED #4E, DO 3 #8D_CURE IN DO (ENABLE) 
TRAP #3 5 


i 
S Tl stahastialisdhatiideaaatdhahaliah hahahah idehteiaiiahihahihahsiahehahiiahiieiiehshehehaiedaheiahalatehahehubehadatatetatstokotutetsnchehedatked 
i “WRITEMODE * 
3 
3 —-—~ DELETE LINES TO ENTER ID IN AO AND TIMEDUT IN D3 ~--— 
» WMODE MOVEQ ##2C ,D0 5 #SETMD IN DO 
MOVE. W #SFFFF,Di 5 XOR INK INTO BACKGROUND 
TRAP “3 5 


5 

| i ohehahehahaheRehehaheRehehahetahshaheiahiiahehahehahehahteiehehshehihehtehetehutehehatahalahaheiaheielehiiehiiotehahaiahaiehhehshekadehoted 
' "coPpy’ 

' 

j =e-~ ALTER LOAD ADDRESSES TO DEFAULTS AND EXA —-—- 


- copy LEA.L DEFAULTS,A1 ; DEFAULT PARAMS ADDRESS IN Al 
EXA,AZ s ACTUAL PARAMS ADDRESS IN AZ 
#4,D1 ; LOOP COUNTER 

. LOOP (A1)+,(A2)+ 7 MOVE TWO PARAMETERS 
Li,Loor } DECREMENT AND LOOP 

3 ---- ALTER BRANCH ADDRESS TO FIRST —-—- 

BRA.S FIRST s DRAW DEFAULT ELLIPSE 

; SEITE FETE HE AE TE EIR TE E EHE FEE EEE EEE EE EE EEE EEE EE EE EE 

; “MAIN’ 

, 

-MAIN FBYTE 
BYTE,AL 
#10, (AL) 


; GET KEY PRESS 

} BYTE ADDRESS IN AL 

; 18 BYTE = 10 <ENTER>? 
CLOSE } IF 80, CLOSE 

BYTE,A1 : BYTE ADDRESS IN At 
#32,(A1) 5 IS BYTE = 32 <SPACE> 

coPyY } IF 80, NEW ANOTHER ELLIPSE 
ELLIPSE |; TO REMOVE OLD ELLIPSE 

TEST } TEST FOR KEY PRESS 
ELLIPSE 5 TO DRAW NEW ELLIPSE 
MAIN 7 AND START AGAIN 


i asthe ata stata adstaatalaetnathattidstiaistnaiaiaisiaiaiahstaisiaieiakhetidethaihaiehataieietaiatstahsietteitetshahatetstetatadeitaiehehel 
*FBYTE* 


--~- DELETE LINES TO ENTER ID IN AO AND TIMEOUT IN DS -—-— 
FBYTE BYTE STORE ADDRESS IN 41 
10 FBYTE IN DO 
CLEAR WORD IN Di 


MOVE. B Di, (A121) 3 STORE BYTE 
3 ———— ADD NEXT LINE BECAUSE THIS IS A SUBROUTINE —--~ 
RTS 


SYSTEM MACHINE CODE 


A ‘MAIN’ routine will normally consist 
entirely of two things. 

1. A set of comparisons of bytes of 
memory with particular numbers Qi.e. 
CMPI B commands) the result of which ' SHEER EERE EE ERE REELED ERE ERED ER EEE ERE EH EERE ERE EE EE ERR 

ae aie : ' "ELLIPSE" 
will dictate the next step. 

P 3 PUT R1 STAEK 50 BELOW TOP OF DATA SPACE. 

2. Aset of JSR commands to jump to ELLIPSE LEA.L “50 (AS) ,At ; RI STACK ON Al 
names subroutines. } MAKE ROOM FOR 1ST INTEGER 


With a little practice, these ‘MAIN’ rou- SUBO.L #2, AL 
3 PUT FIRST INTEGER 


tines can be written easily, and with great MOVE. Ww Paani Chakcek. us 

complexity. ; iibnics ela hei de #6,D0 } #RI_FLOAT ON DO 
Listing 2 shows the ‘MAIN’ routine for . Tits 5, TEED OW BS 

this program. The subroutine ‘TEST’ is a 

combination of ‘UPDOWNFP’ and ae ree 

‘UPDOWNINT' to alter the various ellipse ane 


parameters according to the key press NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE X COORD ON RI STACK. 


detected. More about thatina moment. We . MOIR = kee: it SRR BENIGN Re 


have given the label ‘FIRST’ to the second wooo DELETE LINE TO NEGATE F.P. PARAMETER --~~ 


‘JSR ELLIPSE’ because we actually start NOW REPEAT THE WHOLE THING FOR THE Y COORDINATE 


from that point the first time round to draw eieembiiall <°-ogee o 


the default ellipse. PUT FIRST INTEGER ON RI STACK a 
: MOVE .W EvYA,O(AS,A1.L) 
The structure of the ‘TEST subroutine re- CONVERT TO FP. 
quires a little careful thought in order to pro- ied pil | SRTIELEAD ON BG 


j REPEAT FOR 2ND INTEGER 
duce the most desirable result. You should ee 


recall that the ‘ELLIPSE’ routine requires each MOVE. - EYB, O(A8, Al. 


parameter as a pair of word integers. The Sey ee 


JSR 
actual floating point para- meter is produced by Ee We oa 


converting the two integers to floating point JSR (AS? 
numbers, and then dividing the first by the ae Sees Ea Se remem | ee Renee 
second. The routine‘ UPDOWNFP 'isdesigned NOW REPEAT THE WHOLE THING FOR THE ECCENTRICITY 


A a a MAKE ROOM FOR 1ST INTEGER 
to produce just such a pair of integers. How- wy éteie Side ne eae 
ever, it is also designed to maintain a fix MOVE. = ECCA,O(AG,A1-L) 


number of significant figures in the floating SONY TR Oe nits 5 eenntain kta 
pointnumbergenerated. Thisisideal foraltering JSR (a3) 7 


re ry REPEAT FOR 2ND INTEGER 
the radius, because it means small values ‘ SUBO.L «#2, At 


change slowly, and big values change more a Oo’ 


rapidly. NOW DIVIDE ONE F Pag re ae ies OTHER TO LEAVE ECCEN. ON RI STACK 
* r . Py ul . . 
But it would be rather silly to use this to MOVEQ #$10,D0 4 #RI_DIV DN DO 


alter the position of the ellipse, because it al em 


would mean positions would change slowly ee EE TE he TIME 


near the graphics origin, and more rapidly SUBO.L #2, Al 
farther away. Clearly, the distance from the ee Ee EE ON Wiel 

graphics origin is irrelevent to how fast we CONVERT TO F.P. “on 5 Mat LAT oR BO 
might wish to move it. So for moving the (as) 7 

ellipse, we use ‘UPDOWNINT ' to alter the p Pete Sen me as - “ered 


first integar at a constant rate, and fix the MOVE.W = RADB,O(AS,A1.L) 
a a MOVER #8,D0 
second one with a suitable default value. A JSR (a3) 


eat NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE RADIUS ON RI STACK, 
similar argument goes for the angle of the icues #810,00. 3 #AT_DIV ON DO 


ellipse, so ‘UPDOWNINT’ is use for that JSR (AS) 


’ 
one as well. NOW REPEAT THE WHOLE THING FOR THE ANGLE OF ROTATION 
MAKE ROOM FOR 18T INTEGER 
SUBO.L #2, A1 
PUT FIRST INTEGER ON RI STACK 


Eccentricity MOVE.W - ROTA,O(AS,A1-L? 


CONVERT TO F.P. 
P ge les MOVE! , 
Altering the eccentricity is not so clear ee ae a 


‘ REPEAT FOR 2ND INTEGER 
cut. A case can be made for altering the aupD.L 2, AL 


eccentricity slowly when it is nearly circu- MOVE.W — ROTB,OCAG,At-L> 
lar, and more rapidly when it is more ec- Isr (a3) 


centric. However, | have opted for altering Ne EE ME OO MALO TL Ao 
it at a constant rate using ‘UPDOWNINT’. JSR ics 7 

There are a lot of alterations needed to aoe terre knees HOUNR BAITED EPs AR Anat BREA Ss, 
‘UPDOWNFP' and ‘UPDOWNINT’ to make NOW PLOT THE ELLIPSE 

- i —-+-- DELETE LINES TO ENTER ID IN AO AND TIMEOUT IN D3 ——-- 

them fitour program, butthey are very obvious, MOvEa #$33,D0 } #5D.ELIPS ON DO 

and repetitive, and, with care, should cause Tae gate 7 RARE. BE STAGK ABSOLUTE 

fewproblems. Clearly, weneedtouse different snes ABDUNENT LINE BECAMSE. XT 18. 6. SUBROUTINE = 

key combinations to change different ellipse , 
| parameters, and this must be reflected in the | ALTER Se Mew INTER, WALL 

values of ‘BYTE’ we test for at various points. ae ee ni a eee cone i 

| have chosen to use <LEFT>, <RIGHT>, -EYA DC. W 50 1ST INTEGER OF CENTRE Y i 
<UP> AND <DOWN> to alter the ellipse po- oe me 48 tot noes Oe REDTAIEY 
sition, <CTRL><UP> and <CTRL><DOWN> -ECCB De. W 10 2ND INTEGER OF ECCENTRICITY 


to alter the radius, <ALT><UP> and 


' 
«BYTE DC.B a 


» 
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<ALT><DOWN: to alter the eccentricity, and 
| finally = <ALT><CTRL><UP> and 
<ALT><CTRL><DOWN> to alter the angle. 
Youcan easily change them if you wish. Since 
we are testing for the <ENTER=> key in the 
‘MAIN’ routine, this can be deleted from all 
parts of TEST. And, of course, we have to 
make suitable changes to labels. 

When, in part 5 of this series, | covered 
‘ELLIPSE’ and related routines, | men- 
tioned a problem with negative param- 
eters, a problem | was unable to account 
for, but able to get round. When | was 
putting this sample routine together, | 
found that the problem apparently did not 
occur. The program works exactly as 
expected without any special efforts to 
deal with negative parameters. As a result, 
| have deleted all parts of the code spe- 
cifically to deal with negative parameters. 


Put Together 


We are now ready to put together the 
chunks of code to make up the program. As 
before, | shall put this as a series of 
statements, rather than a flow chart. 

1. First, we start in the usual way with 
‘JOBSTART’, with an appropriate job name. 

2. We need a suitable window to draw 
our ellipse, so we use ‘CONSOLE’. 

3. We must enable a cursor in the 
window with ‘CURSOR’. 

4, We must put the window in XOR mode 
with ‘WRITEMODE’. 

5. The default values of the ellipse 
parameters must be copied to the ellipse 
parameter table with ‘COPY’. 

6. Next we come to the body of the 
program, which is our specially written 
‘MAIN’ routine. 

Somewhere in all this we must put our 
subroutines. They don’t have to be in any 
particular place, or in any particular order. 
In the program listing, | have put them after 
the ‘MAIN’ routine, but before the code to 
close the program. 

7. The most important subroutine is 
‘ELLIPSE’, and it must have a duplicate set 
of parameters. 

8. The most complicated part of all is the 
construction of the subroutine ‘TEST’ which 
will test for particular key presses and alter 
ellipse parameters accordingly. It is con- 
structed as follows. 

8a. ‘UPDOWNFP'’ is used to adjust the 
radius parameters RADA and RADB, and 
must be altered to test for <CTRL><UP> 
and <CTRL><DOWN>. 

8b. ‘UPDOWNINT' is used to adjust the 
centre Y parameter EYA, and must test for 
<UP> and <DOWN>. This is the default 
setting, and needs no alteration. 

8c. ‘UPDOWNINT'’ is used to adjust the 
centre X parameter EXA, and must be 
altered to test for <LEFT> and <RIGHT>. 

8d. ‘'UPDOWNINT? is used to adjust the 
eccentricity parameter ECCA, and mustbe 
altered to test for <ALT><UP> and 
<ALT><DOWN>. 
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SYSTEM MACHINE CODE 


- RADA a 1ST INTEGER OF RADIUS 

» RADB 2ND INTEGER OF RADIUS 
-ROTA a 1ST INTEGER OF ROTATION 
-ROTB . 2ND INTEGER OF ROTATION 
: 


3 —— COPY OF DEFAULT VALUES INTEGER TABLE WITH LABEL .DEFAULTS -~-- 


» DEFAULTS 

INTEGER CENTRE xX 
INTEGER CENTRE X 
INTEGER CENTRE ¥ 
INTEGER CENTRE ¥ 
INTEGER ECCENTRICITY 
INTEGER ECCENTRICITY 
INTEGER RADIUS 
INTEGER RADIUS 
INTEGER ROTATION 
INTEGER ROTATION 


~~=— DELETE SUBROUTINE TO NEGATE F.P. NUMBER -+-- 


FEE IEE TE He TE HE TE He HE EAE HEHE EAE HE EE HE HE TEE HE HEH HE I TI TH HE He AH HE 


*UPDOWNFP ° 
-~-- DELETE LINE WITH UNWANTED .BYTE ---- 
*####e# ALTER RADIUS WITH <CTLR><UP> & <CTRL>< DOWN He HRM 
---- ALTER LABEL To .TEST ---~ 
DELETE LINES TO CLEAR MFLAG —~~- 
LEA.L BYTE,Al 4 BYTE ADDRESS IN Ai 
ALTER NEXT LINE TO TEST FOR <CTRL><UP> ——- 
CMPI.B #210,(A1) g IS BYTE = <CTRLO<UP> ? 
BEQ.S UPFP } IF 80, THEN UP 
LEA.L BYTE,A1 5 BYTE ADDRESS IN Ai 
ALTER NEXT LINE TO TEST FOR <CTRL><DOWN> --— 
CMPI.B #218,(A1) » IS BYTE = <CTRL><DOWN> ? 
BEO.S DOWNFP } IF SO THEN DOWN 
DELETE & LINES DEALING WITH <MINUS> AND <ENTER> KEYS —--— 
ALTER NEXT LINE TO BRANCH TO UPDOWN --—— 
BRA UPDOWN } IF NEITHER, SKIP TO NEXT BIT 
NUMBER BIGGER. ADJUST VALUES TO SUIT. 
ALTER LOAD ADDRESS TO RADA —-— 
LEA.L RADA,Al 3 RADA ADDRESS IN Ai 
ALTER LOAD ADDRESS TO RADB ——— 
LEA.L RADB, AZ 
(A1) ,DO 


} RADB ADDRESS IN AZ 
5 RADA IN DO 

} RADA ALREADY 100 2 

; IF 80 LEAVE UNCHANGED 
} ADD 1 TO RADA 

; RADA TO DO 

} IS RADA =100 2 

} IF NOT, NEXT BIT 

3 RADE TO DO 
‘ 

’ 
; 
5 
5 

5 
; 


x 
2 
m 


EEE EE EEE EE 


IS RADB = 1 ? 


ELSE, RADA = 10 
RADE IN DO 
10 IN Di 
RADB/ 10 
NEW DO VALUE IN RADB 
} SKIP TO NEXT BIT 
3 MAKE NUMBER SMALLER. ADJUST VALUES TO SUIT. 
j —--~ ALTER LOAD ADDRESS TO RADA —-—— 
« DOWNFP LEA-L RADA,AL 4» RADA ADDRESS IN AL 
} ~~~ ALTER LOAD ADDRESS TO RADB —-—- 
RADB, AZ RADB ADDRESS IN AZ 
(At) ,DO RADA TO DO 
RADA ALREADY 9 ? 
IF 50, LEAVE UNCHANGED 
SUBTRACT 1 FROM RADA 
RADA TO DO 
15 RADA = 9 ? 
IF NOT, NEXT BIT 
RADB TO DO 
I8 RADB = 10000 IF DIVIDING 


«W 


THEN LEAVE RADA,RADB UNCHANGED 


ELSE, RADA = 99 
RADE IN DO 

10 IN Dt 

RADB*10 

NEW DO VALUE INTO RADB 


--== DELETE LINES FOR UNWANTED .SFLAG, .INT1 AND .INT2 ~~—- 


EEE TEE TE ETT TEE HET TEE HEA TEU FETE HEE HES HEE HEHE EE EE EE SE EE HEHE ETE TEE IRIE IETHER Hea gH: 


“UPDOWNINT * 
ae eee ALTER CENTRE Y WITH <UP> AND <DOWN> +a aed 


--— DELETE LINE FOR UNWANTED .BYTE -~-~ 
DOWN. LEAL BYTE,AL 5 BYTE ADDRESS IN Al 
#208,(A1) ; IS BYTE = 208 2 
uP ; IF SO, THEN UP 
BYTE,A1 » BYTE ADDRESS IN A1 
#214,(A1) ; IS BYTE = 216 ? 
7 IF S80 THEN DOWN 
DELETE LINES TO TEST FOR <ENTER> —-—- 
ALTER BRANCH ADDRESS TO UPDOWN2 ---— 
BRA UPDOWNZ 3 IF NEITHER, SKIP TO LIPDOWN2 
ALTER LOAD ADDRESS EYA -—-— 
LEA.L EYA,AL } INTEGER ADDRESS IN Ai 
ADDI.W #1,¢A1) 7 ADD 1 TO INTEGER 
BRA NEXTBIT 45 SKIP DOWN 
ALTER LOAD ADDRESS To EYA —— 
LEA.L EYA,Al } INTEGER ADDRESS IN At 
SUBI.W #1,(41) ¢ SUBTRACT 1 FROM INTEGER 
BRA NEXTBIT 


3-77 DELETE LINE FOR UNWANTED .INT ——-— 


PEER EREHEHER EERE EEE EEE ERE LEER EERE EEE EHH EE EEE EE EE 


“UPDOWNINT ° 


eee ALTER CENTRE X WITH <LEFT> AND <RIGHT > #464 aaa eae 


THEN LEAVE RADA,RADB UNCHANGED 


SYSTEM MACHINE CODE 


8e. ‘“UPDOWNINT' is used to adjust the 
angle parameter ROTA, and must be al- 
tered to test for <ALT><CTRL><UP> and 
<ALT><CTRL><DOWN>. 

9. We end the program with ‘CLOSE’ to 
close the window, and ‘ENDJOB’ to kill the 
job. 

Putting all that together, we get: 

JOBSTART, CONSOLE, CURSOR, 
WRITEMODE, COPY, MAIN, EL- 
LIPSE, UPDOWNFP, UPDOWNINT, 
UPDOWNINT, UPDOWNINT, 
UPDOWNINT, CLOSE, ENDJOB. 

Listing three shows the result of 
merging the required chunks of code into 
a file and making the approriate altera- 
tions to make them fit together. As before, 
most of the comments have been re- 
moved, with lines of asterisks left between 
the chunks to show clearly where one 
ends and the next begins. Also, addi- 
tional comments have been added to 
point out the necessary alterations. You 
could, of course, simply copy Listing one, 
and assemble it, but it woulddefeat the 
point of the exercise. It is much more 
informative to start from the chunks of 
code, merge them together, and then 
make the alterations, and note why those 
alterations are made. Actually, if youhave 
kept up with this series, you have already 
typed out the library of chunks of code, it 
is almost certainly a lot less work doing it 
this way. 

Having got the program to work, itwould 
certainly be worth while experimenting 
with it, because that will undoubtebly lead 
to a better understanding of how it works, 
and, ultimately, to how to write similar 
routines, customised to your own needs. 
The first thing it would be worth trying is 
simply to change the key presses needed 
to make the various adjustments to the 
ellipse. You may find one more of your 
liking. Next, you could alter the speed of 
adjusting the ellipse by altering the 
ADDI.W and SUBI.W commands in the 
‘UPDOWNFP’ and UPDOWNINT' chunks 
of code. 


Further Ideas 


When you feel a bit more confident with 
the program, you could add some extras, 
like using ‘FLOOD 'tofill in the ellipse before 
going on to the next. To fill the ellipse you 
would need to rewrite the ‘MAIN’ routine so 
that when the SPACE or ENTER key was 
detected, instead of going straightto ‘COPY’ 
or ‘CLOSE’, the program would switch on 
the graphics ‘fill, redraw the ellipse, and 
then switch ‘fill’ off again. 

After all that, you could try applying the 
ideas to drawing arcs, and ‘rubber-banding’ 
lines, and then incorporating them all into 
the same program. If you then open an- 
other window to display a set of cursor 
commands for each type of figure to be 
drawn, before you know where you are, you 
might have written a program for producing 
artwork on the screen. Happy coding! 


} —-o> DELETE LINE FOR UNWANTED .RYTE —--— 
3 —--- ALTER LABEL TO .UPDOWNa —— 
. UPDDWN4 LEA. BYTE,A1 3 BYTE ADDRESS IN Ai 
3 ---— ALTER NEXT LINE TO TEST FOR <ALT><CTRL><UP> —-—- 
MPI. 8 #211, (A1) 7 18 BYTE = <ALT><CTRL><UP> 7 
} ---+ ALTER BRANCH ADDRESS TO UP4 -—-— 
BEQ.S uP4 3 IF 50, THEN UP 
LEAL BYTE,Al 4 BYTE ADDRESS IN Al 
ALTER NEXT LINE TO TEST FOR <ALT><CTRL><DOWN> ---~ 
CMPI.B #219, (Al) 3 IS BYTE = <ALT><CTRL><DOWN> 7 
ALTER BRANCH ADDRESS TO DOWN4 —-—- 
BEQ.S DOWN4 } IF 80, THEN DOWN 
DELETE LINES TO TEST FOR <ENTER> ———— 
BRA NEXTBIT IF NEITHER, SKIP TO NEXT BIT 
ALTER LABEL TO .UP4 ---- 
ALTER LOAD ADDRESS TO ROTA ---- 
LEA.L ROTA,A1 4 INTEGER ADDRESS IN Al 
ADDI. W #1,(A1) 3 ADD 1 TO INTEGER 
BRA NEXTBIT 3 SKIP DOWN 
} —~-- ALTER LABEL TO .pOWN4 ~--- 
} —--- ALTER LOAD ADDRESS TO ROTA --— 
« DOWN4 LEA.L ROTA,Al 3 INTEGER ADDRESS IN Ai 
SUBJ.W #1,4A1) 5 SUBTRACT 1 FROM INTEGER 
5 
} ---- DELETE LINE FOR UNWANTED .INT ---- 
$ ---— ADD NEXT LINE BECAUSE IT IS A SUBROUTINE ~--- 
/NEXTEIT RTS 
RH HH HH EE EE HH HH He HH 
; “CLOSE! 
' 
. CLOSE MOVE.L (A72+,A0 5 CHANNEL ID IN AO 
MOVEQ #2,D0 } #I0_CLOSE IN DO 
TRAP #2 ; 


3 

FFE HER AEE IE ERE HE IE HETIL HEE HEE HEE HEE HF 16 AE EEE EE HE EE TE EI HEE 
3 “ENDJOB* 
3 


»END_JOB MOVES #5,D0 5 #MT_FRJOB IN DO 
MOVER #-1,Di 3 ID OF THIS JOB IN D1 
TRAP #1 i 


sh liahetiatealiatat chsh sialahtahstehshdetetihahehadshatahadahehahahahahshehahahiiedahaheieheiehehaihuhehsahhebhehsdadahahatekshadabebot del 


--+= DELETE LINE FOR UNWANTED .BYTE ---- 
-—-— ALTER LABEL TO .UPDOWN2 —-—- 


- UPDOWN2 LEA.L BYTE,A1 3 BYTE ADDRESS IN Al 
fo coo ALTER NEXT LINE TO TEST FOR <RIGHT> ---— 
CMPI.B #200,(A1) 3; 1S BYTE = <RIGHT>? 
3 —--- ALTER BRANCH ADDRESS TO UP2 —-—- 
BEg.S UP2 5 IF 6O, THEN UP 
LEA.L BYTE,AL 5 BYTE ADDRESS IN Al 
ALTER NEXT LINE TO TEST FOR <LEFTF> —-—- 
CMPI.B #192, 1A1) 5 IS BYTE = <LEFT> ? 
ALTER BRANCH ADDRESS TO DOWN2 ~~~ 
BEQ.s DOWN2 Hy $0 THEN DOWN 
DELETE LINES TO TEST FOR <ENTER> —- 
ALTER BRANCH ADDRESS TO UPDOWNS -—-— 
BRA.S UPDOWNS 5 NEITHER, SKIP TO UPDOWNS 
ALTER LABEL TO .UP2 -~~-~ 
ALTER LOAD ADDRESS TO EXA —~—— 
EXA,AL INTEGER ADDRESS IN Al 
#1, (AL) ADD 1 TO INTEGER 
NEXTBIT SKIP DOWN 
ALTER LABEL TO .DOWN2 ---~— 
ALTER LOAD ADDRESS TO EXA -~—-— 
LEA.L EXA,AL INTEGER ADDRESS IN AL 
SUBI.W #1, (AL? BUBTRACT 1 FROM INTEGER 
BRA NEXTBIT 


——— DELETE LINE FOR UNWANTED .INT ---- 
PERE EE SE EE EE FE YEE EEE HE EE HEE HEE EE EIEN HEH EE TE Ha HEH HE 
"UPDOWNINT * 


eeedEeEX ALTER ECCENTRICITY WITH <ALT><UP> & <ALT>CDOWN> wim aa 


---—~ DELETE LINE FOR UNWANTED -BYTE -—-- 
—-—— ALTER LABEL TO .UPDOWNS ---- 
. UPDODNS LEA.L BYTE,At s BYTE ADDRESS IN AL 
3 —-—— ALTER NEXT LINE TO TEST FOR <ALT><UP> ---- 
CMPI.B #2097,4A1)} ; IS BYTE = <ALT><UP> ? 
—--—- ALTER BRANCH ADDRESS TO UPS ---~ 
BEQ.6 UPS » IF SO, THEN UP 
LEA.L BYTE,AL 5 BYTE ADDRESS IN Al 
ALTER NEXT LINE TO TEST FOR <ALT><DOWN> -—-~ 
CMPI.B #217,(A1) ; IS BYTE = <ALT><DOWN> 7 
ALTER BRANCH ADDRESS TO DOWNS ~--~-- 
BE@.S DOWNS 3 IF SO THEN DOWN 
DELETE LINES TO TEST FOR <ENTER> —-—- 
ALTER BRANCH ADDRESS TO UPDOWN4 ~~-— 
BRA.S UPDOWN4 3 «IF NEITHER, SKIP TO UPDOWN4 
ALTER LABEL TO .UPS ---- 
ALTER LOAD ADDRESS TO ECCA --— 
LEA.L ECCA,AL INTEGER ADDRESS IN Ai 
ADDI.W #1, Al) ADD 1 TO INTEGER 
BRA NEXTBIT SKIP DOWN 
ALTER LABEL TO .DOWNS -—-- 
ALTER LOAD ADDRESS TO ECCA ---— 
LEA.L ECCA,AL t INTEGER ADDRESS IN Al 
SUBI.W #1, (A1) 5 SUBTRACT 1 FROM INTEGER 
BRA NEXTBIT 


i 

3 —--- DELETE LINE FOR UNWANTED .INT -—-— 

FT Aalehat tal Ralsheteh teh tedehehehehehehehshahihahehahshahehahitahshahahahehahetahatahahatatabetaboheiahiiahelahiiaheiehatanaiahoiahotehaiel 
iy “UPDOWNINT * 
: 
5 


eee ALTER ANGLE WITH CALTO<CTRLOCUP> & <ALTO<CTRL><DOWN> a#ete He Hee 
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GRAPHICS 


THE PAINTER V4.04... suis £25.00 
[F 512K] 100% machine code art and ‘raphics pro- 
gram, by PROGS of Belgium. Multiple screens, can be 
mouse controlled, selection of fonts, patterns, many 
facilities 


THE CLIPART .. iste .. £12.00 
[F 128K] 3 disks full of clipart pictures, ‘for use with 
most DTP/graphics programs, 


QRACTAL .. ci £20.00 
[F 512K] Machine code ‘fractals program. Displays 
Julia or Mandelbrot sets. 


QRACTAL SCREENS ................. 

[F 128K) A disk full of sample screen pictures gener- 
ated with the QRactal program. Buy this to see the 
sample pictures, then ask about a discount when 
buying QRactal itself! 


IMAGE PROCESSOR V2 ..................0.02....,. £15.00 
{F 256K] Image enhancement. edge detection, zoom 
and edit, touch up picture generated by digitisers, 
scanners or other graphics programs. Works with 
mode 4 or 8 screens, 

UPGRADE OLD IMAGE PROCESSOR .......... £10.00 
(Send proof of purchase of old version) 


PD2 CLIPART .. , £10.00 
[F 128K] Clipart made tor PD2 Plus, but available in 
screen format for use with other DTP/graphics pro- 
grams if required. 


SCREEN SNATCHER .....00....cccccceeeeeee £10.00 
[FIM 128K] ‘Grab’ screen displays from within other 
programs that are not able to save their own displays. 


TERT Wl" GRAPTUR 5 2a citcecccctinresevnan SEDIOD 
[F 256K] NEW! Allows you to insert screens, or part 
of QL screen pictures, into a Quill or plain text file 
printout, Mix NLQ text and graphics in the same 
printout! Currently only tor use with 9 pin Epson 
compatible dot matrix printers - ask about a version 
for 24 pin printers due soon, 


TRANS24 |. £10.00 
[FIM 128K] Translates 9 pin (graphics printouts into 
data for a 24 pin printer. 


TEXT 


BIBLE TEXT DISKS, EDITOR FORMAT........ £20.00 
BIBLE TEXT DISKS, QUILL “_DOC” 

[F 256K] Text of the King James Bible on Disk 
Please state whether you require Editor (plain text} 
or Quill’ doc’ format 


SPELLBOUND i 
(F 1M 384K) A spelling checker which can check 
spelling as you type! 30,000 word dictionary 


SPELLBOUND SPECIAL EDITION £50.00 
(F 512K) Enganced version of Spellbound with 
50,000 word dictionary & many new features. 
UPGRADE TO SPELLBOUND S.E............ £30.00 


QUICK POSTERS 
(F 2M 128K) Text poster maker. for use with Star 
NL, XB and LC printers 


ROB ROY BARGAIN PACK 
(F 3M 128K) Reviewed in QL WoRId August 1991 


Dilwyn Jones Computing 


41 Bro Emrys, Tal-y-Bont, 
Bangor, Gwynedd LL57 3YT U.K. 
Tel: Bangor (0248) 354023 


DATA BASES 


ADDRESS BOOK & LABEL PRINTER..........£15.00 
[F 2M R 384K] Store names and addresses and 
print them out on a variety of label sizes, or printa 
telephone list, etc, 


DATA DESIGN . , ‘ .. £50.00 
[F 512K] Superb, ‘fast 100% machine code 
database by PROGS of Belgium. Programmable via 
BASIC and machine code interfaces - write your 
own database applications in BASIC using the 
DATA Design commands to help you! Runs in 
pointer environment (supplied) 


FLASHBACK . £25.00 
[F 1M 256K] Fast machine code database which is 
also very easy to use 


FLASHBACK SPECIAL EDITION .................. £40.00 
[F 2M 512K] Enhanced version of Flashback, new 
commands, report generator, etc 

UPGRADE TO FLASHBACK S.E.................... £20.00 
(return Flashback master disk) 


OL GENEALOGIST, STANDARD VERSION... £19.50 
[F 2M 384K] Family trees and family history 
database, one of our best selling programs, 


QL GENEALOGIST SECOND EDITION.......... £30.00 
[F 384K] Enhanced version - for details see our 
advert in QL World December 1991. 

UPGRADE TO SECOND EDITION ................. £12.00 
(return Genealogist master disk) 


BUDGET 128K QL GENEALOGIST ............... £12.00 
[FIM 128K] Cut down version for unexpanded 
machines. 


SUPER DISK INDEXER ................. . £12.00 
[F IM 384K] Catalogue your disk collection asa 
database of files. Store it, print it, search & find 
files, make your life easier 


DBEASY ‘ 
[F 512K] MEW! A database front end for Archive, 
plus a suite of programs called Chaos Busters, 
Software from EMSoft, U.S.A. 


DBPROGS 

[F 512K] MEW! A collection of Archive utilities and 
text files to help you learn to program Archive. 
Software from EMSoft. U.S.A 


DTP 


PAGE DESIGNER 2PLUS........................... £40.00 
[F 512K] QL Desktop Publishing program, mix text 
and graphics, make printed pages or posters, use 
clipart, use graphics from other programs etc. 
Prints on most printers. Ask for details! (please 
note: this program has been delayed, apologies to 
those waiting— please check if available before 
ordering} 


UPGRADE PO2 TO P02 PLUS £20.00 
(Send proof of purchase of old PO2) 


QL HARDWARE 


MINI PROCESS CONTROLLER.................... £59.95 
Relay switched outputs, controlled via QQL serial 
port, 


SOFTWARE TOOLKIT FOR MPC ABOVE ....... £9.95 
[F 128K] Control the MPC from BASIC programs 
more easily with these extensions. 


NETWORK PROVER .............. £3.50 
Plugs between network lead and computer to give 
4 visual indication of transmission. 


POSTAGE RATES - SEE BELOW 


OTHER QL SOFTWARE 


PRINTERMASTER 

{F 1M 128K] NEW! Tame your printer! Popup utility 
with menu selection of control codes to send to a 
printer, Want to change fonts, set paper length. 
margins, set up for listings or wordprocessing etc. 
without having to refer to the manual and struggle 
with control codes, Let Printermaster take the 
strain out of living with your printer. 


HOME BUDGET .. “ah . £20.00 
[FIM 128K] Domestic bills and accounts program, 
plus a UK Income Tax Calculator 


REMIND-ME ............... te -. £12.00 
(FIM 128K] Dates and events reminder program - 
remember about birthdays, licence renewals, etc. 
Quick and very easy to use. 


REMIND-ME PLUS F 
(F1M 128k) NEW! Enhanced version with ability ta 
schedule twice as many dates, longer event 
descriptions, etc. 

UPGRADE REMIND-ME TO REMIND-ME PLUS ...£10.00 
Return master disk with order for upgrade 


SCREEN ECONOMISER £10.00 
[FIM 128K] Turns off the aL display after a set 
number of minutes to protect the screen 


SLOWGDLD ...,........... wee 5.00 
[F 128K] Slowdown routine and control panel for 
software which runs too fast on Gold Card or 
indeed any QL system. 


TASKMASTER .. sis weve £25.00 
[FIM 384K] Task switching utility Enables you to 
conveniently switch between several programs in 
memory. Calculator, notepad and file handling 
utility included 


SUPER DISK LABELLER . voor £10.00 
[F.256K] Print neat labels for y your floppy disks 
listing the filenames on the disk in columns in 
small print. 


THE CAT .. : veces £500 
[FIM 128K] List files « on a disk ¢ or cartridge to the 
screen, or print on paper, in colurins (optionally 
sorted in this latest version). Useful and convenient 
utility. 


% SEE ALSO THE OTHER HALF OF THIS ADVERT ON THE PRECEDING PAGE * 


SOFTWARE POSTAGE: Software sent post-free to UK addresses. Abroad add £1.00 per program for pastage and packing. 
SUPPLIES POSTAGE: For disks, boxes and stands. add £2.50 for pastage to UK addresses. or 10% of order value {minimum postage £3.40) E 


for airmail postage where possible 


PAYMENT:We can accept payment by cash, cheque (in UK Pounds Sterling anly. drawn on UK branch of bank ar building society}, Postal Order. {nternatianal \EYROCARD/ 
Postal‘Money order. or Eurocheque. We can also accept payment by these credit cards: VISA. ACCESS. MASTERCARD, EUROCARD and alse Barclays : 

CONNECT card. Please state your card type, number, expiry date and your address {goods paid for by credit card can only be sent to cardholder's address) cS 
Remember to sign your arder. Goods remain property of DUC until paid for in full. Our telephone number abave has an answering machine for when we are 

unable to answer in person — don't be shy! 


